Mdi и края формы в Windows XP

← →
Petro_ (2005-05-19 21:17) [0]

Добрый вечер.
Скажите, как избавиться от краев формы в 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) [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;

Mdi и края формы в Windows XP Найти похожие ветки