|
|
|
|
Придание 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_NoSize
or swp_NoZOrder);
end;
|
[000165]
|
|
|
|
|