Придание 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