Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.967 c