Придание MDI-формам большей трехмерности

Written on 18 Октября 2007. Posted in [Delphi] Пользовательский интерфейс. Окна и формы

Как мне заставить 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;