Придание MDI-формам большей трехмерности
Материал из DRKB
Придание MDI-формам большей трехмерности[править | править код]
constructor TMainForm.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
SetWindowLong(ClientHandle, GWL_EXSTYLE,
GetWindowLong(ClientHandle, GWL_EXSTYLE) or WS_EX_CLIENTEDGE);
SetWindowPos(ClientHandle, 0, 0, 0, 0, 0,
swp_DrawFrame or swp_NoMove or swp_NoSize or swp_NoZOrder);
end;
Source: Взято с http://delphiworld.narod.ru
ID: 00498