как? форма на апи сделана
| Код |
var
thID: integer;
tid:cardinal;
begin
Window:=True;
wc.cbSize := SizeOf(TWndClassEx); // заполнение стpуктуpы wc
wc.style := CS_VREDRAW or CS_HREDRAW; //стиль (комбинация стилей) окна
wc.lpfnWndProc := @WindowProc;
wc.cbClsExtra := 0;
wc.cbWndExtra := 0;
wc.hInstance := HInstance;
wc.hIcon := LoadIcon(0, IDI_APPLICATION);
wc.hCursor := LoadCursor(0, IDC_ARROW);
wc.hbrBackground := COLOR_WINDOW + 1;
wc.lpszMenuName := nil;
wc.lpszClassName := ClassName;
RegisterClassEx(wc);
MainWnd := CreateWindowEx(0,ClassName,AppName,WS_OVERLAPPEDWINDOW,Integer(CW_USEDEFAULT),Integer(CW_USEDEFAULT),Integer(CW_USEDEFAULT),Integer(CW_USEDEFAULT),0,0,HInstance,nil);
ThID:=CreateThread(nil,0,@MyWindow,Pointer(MainWnd),0,tid);
CloseHandle(ThID);
ShowWindow(MainWnd, SW_SHOWNORMAL);
UpdateWindow(MainWnd);
while (GetMessage(Msg, 0,0,0)=True) do begin
windows.TranslateMessage(Msg);
windows.DispatchMessage(Msg);
end;
|
Причём формы две, а не в поток просто нужно получить все нажатия, на любую из моих форм |
)