Создать MDI окно с координатами 0,0
Материал из DRKB
Создать MDI окно с координатами 0,0[править | править код]
procedure TFormX.FormCreate(Sender: TObject);
var
r: TRect;
client: HWND;
begin
client := Application.MainForm.ClientHandle;
Windows.GetClientRect(client, r);
MapWindowPoints(client, HWND_DESKTOP, r, 2);
BoundsRect := r;
end;
ID: 00504