PopUp Menü: Durch welchem Button geöffnet?

[kurtm1]

Also ich habe 9 Buttons, die allesamt das selbe PopUp Menü verwenden. Jetzt würde ich gerne herausbekommen, von/durch welchem/n Button das Menü aktiviert wurde.

Wie geht das?

[PierreB]

Dann übergib doch einfach eine Variable die z.B. die Buttoncaption enthält:

So etwas:

Delphi-Quellcode:

var
button : String;

procedure form1.button1click(Sender : TObject);
begin
button := button1.caption;
Popup1.PopUp;
end;

Is ne sehr sehr einfache Methode, sollte aber gehen. ;)

[moritz]

Moin!

Wofür haben wir OOP? Geb jedem Button im Tag eine ID, und rufe die dann über TButton(Sender).Tag ab.

Gruß

[TeronG]

Zitat:

Zitat von kurtm1

Also ich habe 9 Buttons, die allesamt das selbe PopUp Menü verwenden. Jetzt würde ich gerne herausbekommen, von/durch welchem/n Button das Menü aktiviert wurde.

Wie geht das?

Wenn du auf den Button anklickst um das Menu zu öffnen dann sollte es doch auch mit Sender gehen oder nicht???

Bei Rechtsklick weis ich atm nix vernünftiges ...

[kurtm1]

Zitat:

Zitat von moritz

Moin!

Wofür haben wir OOP? Geb jedem Button im Tag eine ID, und rufe die dann über TButton(Sender).Tag ab.

Gruß

super danke, das mit dem Tag vergeben hatte ich vorher schon gemacht, wusste nur nicht, wie ich diese dann abrufe

//EDIT: da bekomme ich als Tag aber immer nur den Wert 0 zurück
das dürfte wie bereits TeronG gesagt hat am Rechtsklick liegen

[TeronG]

hab mich mal n bissl damit gespielt und meine Abfrage in

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);

reingeschrieben ...nur da ist der sender immer das Popupmenu selbst
Steh voll aufm Schlauch grade .... :wall:

[kurtm1]

Zitat:

Zitat von TeronG

hab mich mal n bissl damit gespielt und meine Abfrage in

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);

reingeschrieben ...nur da ist der sender immer das Popupmenu selbst
Steh voll aufm Schlauch grade .... :wall:

genau dieses Problem habe ich auch gehabt, dass der Sender das PopupMenü ist

[himitsu]

Zitat:

Zitat von TeronG

hab mich mal n bissl damit gespielt und meine Abfrage in

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);

reingeschrieben ...nur da ist der sender immer das Popupmenu selbst
Steh voll aufm Schlauch grade .... :wall:

Wenn das PopUp per

Delphi-Quellcode:

Popup1.PopUp;

aufgerufen wird, dann muß es doch sich selber im Sender stehen haben, da es ja direkt von einer eigenen Routine aufgerufen wird ;)

[kurtm1]

Zitat:

Zitat von himitsu

Wenn das PopUp per

Delphi-Quellcode:

Popup1.PopUp;

aufgerufen wird, dann muß es doch sich selber im Sender stehen haben, da es ja direkt von einer eigenen Routine aufgerufen wird ;)

Was aber das generelle Problem nicht löst..

[TeronG]

Zitat:

Zitat von himitsu

Wenn das PopUp per

Delphi-Quellcode:

Popup1.PopUp;

aufgerufen wird, dann muß es doch sich selber im Sender stehen haben, da es ja direkt von einer eigenen Routine aufgerufen wird ;)

Jaja .. und wie wird es dann aufgerufen, wenn ich es per rechtsklick aufrufe? (ich trage es also m OI dementsprchend ein)


edit:

Zitat:

Was aber das generelle Problem nicht löst..

aber es würde es erklären ... wenn ich es denn so gemacht hätte :mrgreen:

EDIT: also ne (theoretische) Rechtsklicklösung hätte ich höchstens über das Auswerten der Mausposition ...

[simonko]

du weisst allen 9 buttons eine prozedur zu für das ereignis button.onclick und
dann kannst du nur Tbutton(Sender) schreiben und dann kannst du auf das element zugreifen.

[TeronG]

Zitat:

Zitat von simonko

du weisst allen 9 buttons eine prozedur zu für das ereignis button.onclick und ..

Wir sind aber bei Rechtsklick (glaubich ^^) und ich befürchte die dinger haben schon ein OnClick ereigniss ^^

[shmia]

Zitat:

Zitat von kurtm1

Also ich habe 9 Buttons, die allesamt das selbe PopUp Menü verwenden. Jetzt würde ich gerne herausbekommen, von/durch welchem/n Button das Menü aktiviert wurde.

Es gibt das Property PopupComponent !!

Delphi-Quellcode:

   ShowMessage((PopupMenue1.Popupcomponent as TButton).Caption);

[kurtm1]

ok ich habs inzwischen selbst zusammengebracht

Setze beim Ereignis OnContextPopUp des Buttons einen Index=Button.Tag und verwende dies dann später..

Zwar ein wenig umständlich aber es funzt


//EDIT: thx an shmia, das funzt und ist kurz

[TeronG]

Zitat:

Zitat von shmia

Es gibt das Property PopupComponent !!

:gruebel: Das wusst ich ned ... (OH Rules ^^)
Nagut dann kan man ja sogar wieder mit dem .Tag (Integer) arbeiten! :mrgreen:

Delphi-Quellcode:

ShowMessage(IntToStr((PopupMenu1.PopupComponent as TButton).Tag));

bzw.:

Delphi-Quellcode:

ShowMessage(IntToStr(PopupMenu1.PopupComponent.Tag));