CreateWindowEx(0, 'EDIT', 'INPUT', {标题} WS_VISIBLE or WS_CHILD or WS_BORDER, {带边框子窗口}
40,120,240,24, wnd, IDC_EDT1, HInstance, nil );这样可以在窗体创建一个edit 但怎样设置字体大小呢?设置为密码类型呢?
40,120,240,24, wnd, IDC_EDT1, HInstance, nil );这样可以在窗体创建一个edit 但怎样设置字体大小呢?设置为密码类型呢?
EDIT.PasswordChar='*'
DefaultFont : HFont; DefaultFont := CreateFont(-$C, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, '宋体'); SendMessage(EditHandle,WM_SETFONT,DefaultFont,0);FormDestroy
DeleteObject(DefaultFont);
字体如上所述修改密码可以把第二个参数 WS_VISIBLE or WS_CHILD or WS_BORDER or ES_PASSWORD, {带边框子窗口}