Pasek Caption

Mam kolejny problem - jak zbrobić coś tekiego że po naciśnięciu przycisku pasek Caption(ten u góry) zniknie? Proszę o kontakt [email protected]

Zmień właściwość BorderStyle na bsNone
zachowując w zmiennej poprzednią wartość
aby móc ją ewentualnie przywrócić.

Piszac na forum nie oczekuj, ze ktos bedzie na maila odpowiedz ci wysylal.

procedure TForm1.HideTitlebar;
var
Style: Longint;
begin
if BorderStyle = bsNone then Exit;
Style := GetWindowLong(Handle, GWL_STYLE);
if (Style and WS_CAPTION) = WS_CAPTION then
begin
case BorderStyle of
bsSingle,
bsSizeable: SetWindowLong(Handle, GWL_STYLE, Style and
(not (WS_CAPTION)) or WS_BORDER);
bsDialog: SetWindowLong(Handle, GWL_STYLE, Style and
(not (WS_CAPTION)) or DS_MODALFRAME or WS_DLGFRAME);
end;
Height := Height - GetSystemMetrics(SM_CYCAPTION);
Refresh;
end;
end;

procedure TForm1.ShowTitlebar;
var
Style: Longint;
begin
if BorderStyle = bsNone then Exit;
Style := GetWindowLong(Handle, GWL_STYLE);
if (Style and WS_CAPTION) <> WS_CAPTION then
begin
case BorderStyle of
bsSingle,
bsSizeable: SetWindowLong(Handle, GWL_STYLE, Style or WS_CAPTION or
WS_BORDER);
bsDialog: SetWindowLong(Handle, GWL_STYLE,
Style or WS_CAPTION or DS_MODALFRAME or WS_DLGFRAME);
end;
Height := Height + GetSystemMetrics(SM_CYCAPTION);
Refresh;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
HideTitlebar;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowTitlebar;
end;

Hmmm... Darck mam wrazenie, ze to bylo w faq. I tak w ogóle maslak_x, to o ktory pasek ci chodzi? Ten w pasku zadan, czy ten u gory proga?

Snowak [cygaro]

Hmmm... Darck mam wrazenie, ze to bylo w faq. I tak w ogóle maslak_x, to o ktory pasek ci chodzi? Ten w pasku zadan, czy ten u gory proga?

Snowak [cygaro]

Odgrzebujesz topiki z archiwum, to sie nie dziw. Ktos przepisal ten kod stad do faq, a w ogole, to jest on z torry net

nie bylem zalogowany. poza tym on napisal "(ten u gory)". Naprawde malo jest osob ktore maja pasek startu na gorze ekranu, wiec po co twoje bezsensowne pytania.