Delphi FAQ

Jak zmienić rozmiar formy o właściwości border style bsnone

Sebek

Kawałek kodu źródłowego rozwiąże sprawę. Oczywiście ustawiamy Border Style na bsNone i teraz do public wstawiamy:

procedure CreateParams(var Params: TCreateParams); override; 

Teraz taka procedurka:

procedure TForm1.CreateParams(var Params: TCreateParams); 
begin 
  inherited CreateParams(Params); 
  Params.Style := (Params.Style or WS_THICKFRAME); 
end;

I gotowe wszystko działa.

FAQ

3 komentarzy

W Object Inpector ustawiasz na brak ramki, nastepne w API z powrotem ja wlaczasz..:D ok...mniejsza

Super - ale widac ramke dookola okna - a jak zrobic zeby tej ramki nie bylo ??

Kól, a co z innymi WindowStyle (przydałoby się)