Советы по Delphi
Придание MDI-формам большей "трехмерности"
В: Как мне заставить MDI-форму стать "более трехмерной" (наподобие Майкрософтовских программ)?
Данный ответ я почерпнул из раздела Tips & Tricks журнала The Delphi Magazine.
| 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_NoSizeor swp_NoZOrder);end; |
[000165]
