Mdi и края формы в Windows XP [D6]
Petro_ © (2005-05-19 21:17:00)
Добрый вечер.
Скажите, как избавиться от краев формы в Windows XP наилучшее
оформление при создании Mdi окна.Вот кусок(форма стоит в
maximazed):
LockWindowUpdate(ClientHandle);
Mint:=Tmin_f.Create(Application);
Mint.Caption:='Временные интервалы: '+inttostr(incc);
Mint.Show;
LockWindowUpdate(0);
_leum (2005-05-20 00:41:00) [1]
function CreateFormWithoutBorders(FormClass: TFormClass):
TForm;
var
WP
: TWindowPlacement;
WS
: DWORD;
begin
if Assigned(FormClass) and Assigned(Application) then
begin
Result := FormClass.Create(Application);
FillChar(WP, SizeOf(WP), 0);
WP.length := SizeOf(WP);
WP.showCmd := SW_SHOWNORMAL;
WP.flags := Integer(@WP) + SizeOf(DWord) * 7;
WS := GetWindowLong(Result.Handle, GWL_STYLE);
Inc(WS, $800000 and not WS_BORDER);
SystemParametersInfo(SPI_GETWORKAREA, 0,
@(PChar(WP.flags)^), 0);
InflateRect(PRect(WP.flags)^,
GetSystemMetrics(SM_CXBORDER) shl 2, GetSystemMetrics(SM_CYBORDER)
shl 2);
SetWindowLong(Result.Handle, GWL_STYLE, WS);
DeleteMenu(GetSystemMenu(Result.Handle, False),
SC_MOVE, MF_BYCOMMAND);
SetWindowPlacement(Result.Handle, @WP);
SetWindowPos(Result.Handle, 0, 0, 0, 0, 0,
SWP_FRAMECHANGED or SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER);
end
else
Result := nil;
end;
Наверх 
ЧАТ |
Орешник |
|
