Entwickler-Ecke :: Thema anzeigen - PopUpMenu aufpoppen lassen *g*

Andreas L. - So 15.02.04 20:31
Titel: PopUpMenu aufpoppen lassen *g*

Hi,
wie kann ich machen das bei Buttonclick ein PopUpMenu an der unteren, linken Kante eines Buttons aufklappt?

Habe da schon ein bisschen geschaut:

Delphi-Quelltext

1:	PopUpMenu1.popup(X:Integer, Y:Integer);

Ja, das ist kein Problem. Das einzige Problem sind die Koordinaten. Das PopUpMenu geht ja vom gesamten Bildschirm aus, also kann ich nicht festlegen wo es aufklappen soll, da das Form ja hin und her geschoben sein könnte.

Delphi-Quelltext

1:	PopUpMenu1.popupcomponent :=TComponent;

1. Wenn ich SpeedButton1 hinschreibe erscheint das Menü gar nicht am Bildschirm; 2. Wenn es gehen würde dann könnte ich ja nicht festlegen wo am Button es auftauchen soll.

Delphi-Quelltext

1:	BcBarPopUpMenu1.popupatcurser;

Hier habe ich eine Komponente (Bluecave BarMenu PopUpMenu) die ich schon seit längeren habe, sie bittet die obere Funktion an, leider taucht das Menü wirklich am Curser auf...

Könnt ihr mir helfen?

Greetz und thx

Andreas L. - Mo 16.02.04 17:28

Onlinehilfe hat folgendes geschrieben:

Translates a given point from client area coordinates to global screen coordinates.

function ClientToScreen(const Point: TPoint): TPoint;

Description

Use ClientToScreen to convert a point whose coordinates are expressed locally to the control to the corresponding point in screen coordinates. In client area coordinates (0, 0) corresponds to the upper left corner of the control's client area. In screen coordinates (0, 0) corresponds to the upper left corner of the screen.

Use ScreenToClient along with ClientToScreen to convert from one control's coordinate system to another control's coordinate system. For example,

P := TargetControl.ScreenToClient(SourceControl.ClientToScreen(P));

converts P from coordinates in SourceControl to coordinates in TargetControl.

Wie bitte????

Motzi - Mo 16.02.04 18:04

Nix verstehen...? ;)

Ganz einfach.. du übergibst der Methode ClientToScreen eine Variable vom Typ TPoint und bekommst einen TPoint zurück. Der Rückgabewert enthält dann die Koordinaten die relativ zum Bildschirm sind. Berechnet werden die Koordination dabei ausgehend von der Position des Controls dessen Methode zu aufgerufen hast... jetzt etwas klarer..?

Anonymous - Mo 16.02.04 18:42

Delphi-Quelltext

1:	ScreenPosition := ClientToScreen(point(x,y));

so, z.B. (in Mouse-Move/Down/Up)

Motzi - Mo 16.02.04 18:43

Ok.. du hast ein Formular namens Form1, das sich ander Position Left:200, Top:100 befindet und auf diesem Formular einen Button namens Button1 mit Left:10 und Top:10

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
  aPoint: TPoint;

aPoint := Point(1,1);

aPoint := Form1.ClientToScree(aPoint);

aPoint hat nun den Wert x:201, y:101 - wieso? Weil Das Formular an der Position 200,100 ist und wir den Punkt 1,1 ausgehend vom Formular auf die Bildschirm-Koordinaten umrechnen, also Form1.Left + aPoint.x bzw Form1.Top + aPoint.y

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
  aPoint: TPoint;

aPoint := Point(1,1);

aPoint := Button1.ClientToScree(aPoint);

In diesem Fall werden die neuen Koordinaten ausgehend vom Button berechnet.. also praktisch nach dem Schema Form1.Left + Button1.Left + aPoint.x und genauso auch für y...

Probier einfach mal ein bisschen herum und schau dir mit dem Debugger die Ergebnisse der Umrechnung an (oder gib sie in einfach einem kleinen Test-Programm aus..)

rokdd - Di 17.02.04 10:28

Hallo,

hier nochmal meine Variante des Quelltextes(zum erklären):

Delphi-Quelltext

1:
2:
3:
4:

var p:tpoint; //0
....
p:=Clienttoscreen(Point(Button.left, button.top+button.height)); //1
PopUpMenu1.popup(p.x,p.y);//2

ClienttoScreen rechnet wie schon oben gepostet wurde die Koordinaten Einer Komponente, die auf das Formular bezogen sind, in Koordinaten bezogen auf den Bildschirm um. Es espart dir also die mühseligen Additionswege. Clienttoscreen braucht als parameter vom tpoint, deswegen habe ich Point(...) geschrieben. Der Rückgabewert ist auch vom typ tpoint deswegen habe die var p deklariert(0). Nach dem Umrechnen(1) gibst du dann die Coords an das Popmenu weiter(2), wobei du dann p.x und p.y schreiben musst, weil p ja ein point und eine x,y Koordinate hat.

Hoffe das hilft

Rokdd

Andreas L. - Di 17.02.04 14:07

rokdd hat folgendes geschrieben:

Hallo,

hier nochmal meine Variante des Quelltextes(zum erklären):

Delphi-Quelltext

1:
2:
3:
4:

var p:tpoint; //0
....
p:=Clienttoscreen(Point(Button.left, button.top+button.height)); //1
PopUpMenu1.popup(p.x,p.y);//2

Ahh jetzt, das ist ja nichtmal so schwer, werde deine Variante gleich mal ausprobieren.

Greetz und thx

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!