| Код |
program BLACK_KOT;
uses Messages,Windows;
var
Form1,Memo1,Memo2,Button2,Button3,Button1,Edit1,CheckBox1,Panel1,RadioButton1,Memo3 : HWND;
BLACK_KOT_window: TWndClass;
Msg: TMsg;
//--------------------главный обработчик сообщений
function WndProc(hnd, wmsg, wparam, lparam: integer): integer; stdcall;
begin
Result:=0;
case wmsg of
WM_CREATE:
begin
Memo1:=CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', ' ', ES_MULTILINE or WS_HSCROLL or WS_VISIBLE or WS_CHILD,8, 8, 153,233, hnd, 0, HInstance, nil);
Memo2:=CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', ' ', ES_MULTILINE or WS_HSCROLL or WS_VSCROLL or WS_VISIBLE or WS_CHILD,168, 8, 153,233, hnd, 0, HInstance, nil);
Button2:=CreateWindowEx(0, 'Button', 'фильтр',WS_VISIBLE or WS_CHILD,328, 216, 73,25, hnd, 0, HInstance, nil);
Button3:=CreateWindowEx(0, 'Button', 'создать',WS_VISIBLE or WS_CHILD,408, 216, 65,25, hnd, 0, HInstance, nil);
Button1:=CreateWindowEx(0, 'Button', 'открыть форму ',WS_VISIBLE or WS_CHILD,328, 184, 145,25, hnd, 0, HInstance, nil);
Edit1:=CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', 'ПриВет Я андрей',WS_BORDER or ES_AUTOHSCROLL or WS_VISIBLE or WS_CHILD,336, 24, 121,21, hnd, 0, HInstance, nil);
CheckBox1:=CreateWindowEx(0, 'Button', 'kgugtu', BS_AUTOCHECKBOX or WS_VISIBLE or WS_CHILD,336, 48, 137,17, hnd, 0, HInstance, nil);
Panel1:=CreateWindowEx(0, 'Static', 'Panel1', WS_DLGFRAME or WS_VISIBLE or WS_CHILD,336, 88, 105,33, hnd, 0, HInstance, nil);
RadioButton1:=CreateWindowEx(0, 'Button', 'RadioButton1', BS_AUTORADIOBUTTON or WS_VISIBLE or WS_CHILD,352, 136, 113,17, hnd, 0, HInstance, nil);
Memo3:=CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', ' ', ES_MULTILINE or WS_HSCROLL or WS_VSCROLL or WS_VISIBLE or WS_CHILD,8, 248, 465,209, hnd, 0, HInstance, nil);
end;
WM_DESTROY: PostQuitMessage(0);
else Result:=DefWindowProc(hnd, wmsg, wparam, lparam);
end;
end;
Procedure CreateMySelf;
begin
with BLACK_KOT_window do
begin
lpszClassName:='BLACK_KOT_window';
lpfnWndProc:=@WndProc;
hCursor:=LoadCursor(hInstance, IDC_ARROW);
hbrBackground:=COLOR_3DSHADOW;
end;
RegisterClass(BLACK_KOT_window);
Form1:=CreateWindowEx(WS_EX_CLIENTEDGE, 'BLACK_KOT_window','Form1', WS_OVERLAPPEDWINDOW or WS_VISIBLE,254, 189, 495,496, 0, 0, HInstance, nil);;
end;
begin
CreateMySelf;
while GetMessage(Msg, 0, 0, 0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.
|
создаю форму. цвет самой формы я могу задать сначала hbrBackground:=COLOR_3DSHADOW; а вот как мне задать например цвет панели или мемо? какое сообщение посылать,с какими параметрами. лучше всего на примере. помогите! |