Minimalny Width Formy

0

Witam,

Mam pytanie, bo nie mogę znaleźć żadnej odpowiedzi. Minimalny Width Formy u mnie wynosi 132 (coś tam czytałem, że spowodowane to jest miejscem na ikonkę i przyciski sterowania na belce programu). Czy jest jakikolwiek sposób, aby można było utworzyć formę o Width mniejszym niż 132?

Z góry dziękuję za pomoc,
Oskar Czarny

0

Tak jak piszesz minimalna szerokość zależy od tego czy okno ma ikonę i jakie przyciski. Ikona i przyciski muszą się zmieścić nie da się inaczej jedynym wyjściem jest ustawić BorderStyle na bsNone ale wtedy okno będzie pozbawione paska tytułowego.

0

Mam ustawione BordreStyle na bsNone, nawet usunąłem wszystkie przyciski na belce programu, ale i tak to nic nie daje ;/

0

P.S. Jakby ktoś pytał, to zmieniam Width i BorderStyle w kodzie programu, bo przy projektowaniu formy, BorderStyle nadal jest ustawione na bsSiezable (oryginalnie i niezmiennie)

0

W OnCreate formy nadaj żądaną szerokość:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Width:= 1;
end;
0

Ok. Dziękuję za pomoc.

0

Ciekawe do czego to ci potrzebne, bo jeśli do ukrycia formy to nie tędy droga...

0

Jakby Opi miał rację to

with MainForm do
  begin
    Color := clFuchsia;
    TransparentColor := True;
    TransparentColorValue := clFuchsia;
    BorederStyle := bsNone;
  end;
0

Do czego wy mnie tu posądzacie :) Po prostu musiałem wyświetlić obrazek o takim małym rozmiarze ;) Ale dziękuję za pomoc :D

1 użytkowników online, w tym zalogowanych: 0, gości: 1