[gelöst] Hamburger Menü

[joesky]

Gibt es für FPC/Lazarus bereits eine Komponente, die ein "Hamburger Menü" bereitstellt? Ich möchte in meinem Projekt ein Menü hinzufügen, dass sich links oder rechts der Form "versteckt" und beim Klicken auf ein Button herauskommt. Auf so einem Raspberry ist halt nicht so viel Platz und das Menü wird nur selten gebraucht. Vielleicht hat jemand so etwas bereits fertiggestellt und möchte seinen Code mit mir teilen?

[Winni]

Hi!

Schon mal mit PopUpMenüs beschäftigt?

https://wiki.freepascal.org/TPopupMenu/de


Winni

[joesky]

Natrürlich! Sieht aber nicht so schick aus...

[theo]

Natrürlich! Sieht aber nicht so schick aus...

Doch, das sieht sehr schick aus!
Sind sonst noch Fragen?

[Warf]

Dafür braucht man keine komponente, einfach einen Button und ein panel.
Setze das panel genau außerhalb von der Form (also left auf - width) und die höhe auf die höhe der form. Als anchros setzt du dan left, top und bottom damit es entsprechend dem formresizing bleibt.

Beim klick auf den menü button startest du dann einen timer der mit jedem tick das fenster ein stück nach rechts bewegt bis left >= 0 ist, und für das verstecken das gleiche

Code: Alles auswählen

procedure TMainForm.ShowMenuButtonClick(Sender: TObject);
begin
  ShowMenuTimer.Enabled := True;
end;

procedure TMainForm.HideMenuButtonClick(Sender: TObject);
begin
  HideMenuTimer.Enabled := True;
end;

procedure TMainForm.ShowMenuTimerTimer(Sender: TObject);
begin
  HideMenuTimer.Enabled := False;
  MenuPanel.Left := MenuPanel.Left + 10;
  if MenuPanel.Left >=  0 then
  begin
    MenuPanel.Left := 0;
    ShowMenuTimer.Enabled := False;
  end;
end;

procedure TMainForm.HideMenuTimerTimer(Sender: TObject);
begin
  ShowMenuTimer.Enabled := False;
  MenuPanel.Left := MenuPanel.Left - 10;
  if MenuPanel.Left <= -MenuPanel.Width then
  begin
    MenuPanel.Left := -MenuPanel.Width;
    HideMenuTimer.Enabled := False;
  end;
end;

Ist die ganz einfache variante. Um ein bisschen sparsamer mit Code und Komponenten zu sein kann man das über einen Button und einen Timer + Boolean variable (show oder hide) setzen

[hum4n0id3]

Wie theo bereits gesagt hat, würde ich es auch so versuchen.

Ich habe hier ein kleines Projekt gebastelt um es zu demonstrieren.

[Winni]

Hi!

Wie Theo schon sagte:

Man kann PopUpMenüs auch schick machen.

Kleines Beispiel im Anhang.

Winni

[joesky]

Ich hab die Lösung von Warf umgesetzt, nur halt die etwas sparsamere Version. Klappt sehr gut. Vielen Dank.

Ich hab das Popupmenü auch schon mal für solche Menüs genutzt, es war aber nicht meine Idee für dieses Menü.