Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Ein Fenster zum Popup machen? (https://www.delphipraxis.net/63145-ein-fenster-zum-popup-machen.html)

romber 14. Feb 2006 14:47


Ein Fenster zum Popup machen?
 
Hallo!

Ich habe in meiner Anwendung ein kleines Fenster, in dem in verchiedenen visuellen Objekten die Einstellungen für ein bestimmtes Item einer DataGrid zusammengefasst sind. Bis jetzt musste mann ein Item zuerst markieren und dann auf einen Button klicken, um dieses Fenster zu öffnen. Ich möchte es so machen, dass dieses Fenster wie ein Popup-Menü angezeigt wird, wenn man mit der rechten Masutaste auf einen Item klickt. Das Fenster soll sich auch so verhalten wie ein Popup, ich meine, wenn ein Popup gerade angezeigt wird und man mit der Maus woanders klickt, verschwindet das Popup bzw. erscheint wieder in der aktuellen Mausposition, falls die rechte Maustaste gedruckt wurde. Wie mache ich das am besten?

P.S. In der Delphi-IDE wenn man in Editor z.B. "Edit1." eintippt, erscheint sofort hinter dem Punkt ein Popup, der eigentlich kein Popup ist, sondern eine Form (nehme ich an) mit dem eine Art ListBox. So was möchte ich.

Sebastian R. 15. Feb 2006 07:50

Re: Ein Fenster zum Popup machen?
 
Mach einfach ein neues Formular und speichere es. Dann fügst du einfach in ein Event (OnClick) eine Funktion ein, die das Formular an einer Stelle aufruft.

Angenommen dein Button sitzt an der Position 20 - 30 und ist 10x10 Pixel groß. Dann kann das OnClick-Event so aussehen:

Delphi-Quellcode:
begin
  Form2.Top := 30 + 10;
  Form2.Left := 20 + 10;
  Form2.Show;
end;
Das es sich schließt, wenn du mit der Mouse vom Button gehst, dann machst du einen
Delphi-Quellcode:
Form2.Close
-Befehl in das OnMouseLeave-Event.

MfG, Sebastian R.


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:38 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz