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

Habe da schon ein bisschen geschaut:



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.



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.



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

vllt Form.Left + SpeedButton.Left nehmen????

Es gibt 2 Methoden die die Punkt-Koordinaten relativ zu einem Controls umrechnen: ClientToScreen() bzw ScreenToClient()... näheres dazu findet man in der OnlineHilfe...

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????

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..?

Motzi hat folgendes geschrieben:

jetzt etwas klarer..?

Ne....

Kannste mir mit einen kleinen Beispiel helfen?

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

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


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


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..)

Verwirrend

Ich danke dir für deine Hilfe, werde mich zu einen späteren Zeitpunkt mit den Testergebnissen wiedermelden

Greetz

Ich blick des immernoch net. Wieso 1,1 und wie muss ich das am Schluss zusammensetzen...

*nix check*

Hallo,

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



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

rokdd hat folgendes geschrieben:

Hallo, hier nochmal meine Variante des Quelltextes(zum erklären): markieren 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

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

Greetz und thx

OK, geht.

--CLOSED--