TButtonEdit, buttons und dropdown menu - wie Aufrufer finden?

[softtouch]

Ich habe mehrere TButtonEdit controls, alle haben linken und rechten button sichtbar.
Die linken buttons haben alle das gleiche TPopupmenu als dropdown menu zugewiesen bekommen.
Wenn ich nun einen Menu Eintrag auswähle, wie weiss ich dann, welches TButtonEdit control das Popup menu angezeigt hat, damit ich im richtigen edit Feld Änderungen vornehmen kann?
Die property TPopupMenu.PopupCompopnent scheint nur bei normalen popup menus zu funktionieren, bei einem Dropdown menu ist es immer nil.

[himitsu]

Normal via TPopupMenu.PopupComponent


falls hier der Button und nicht das ButtonEdit übergeben wird. :stupid:

[softtouch]

Zitat:

Zitat von himitsu (Beitrag 1526234)

Normal via TPopupMenu.PopupComponent


falls hier der Button und nicht das ButtonEdit übergeben wird :stupid:

Wenn ich das popupmenu in die dropdownmenu property eintrage, klappt das nicht, da ist popupcomponent immer nil.

[himitsu]

Der Aufrufer muß das übergeben, also der Button des ButtonEdit.

* Manche vergessen es zu setzen :wall:
* und Andere achten nicht richtig drauf, was sie übergeben, bei solchen kombinierten Komponenten.

[jaenicke]

Der Quelltext sieht so aus:

Delphi-Quellcode:

    WM_LBUTTONDOWN:
      if FButton.FDropDownMenu <> nil then
      begin
        if not (csDesigning in Parent.ComponentState) then
        begin
          LPoint := ClientToScreen(Point(0, FButton.EditControl.Height));
          FButton.FDropDownMenu.Popup(LPoint.X, LPoint.Y);
        end;
      end

Heißt:
Du hast keinerlei Information, welcher Button dahintersteckt. Das Menü wird einfach nur an Punkt X/Y aufgemacht.

Einziger Weg:
Nachschauen, welcher Button an der Popupstelle liegt. Schön ist das nicht.

Warum klonst du nicht einfach das Menü beim Start des Programms und gibst jedem Button eine eigene Kopie? Dann packst du eine ID in die Eigenschaft Tag (oder nennst das Menü in Name wie den Button plus einen kleinen Zusatz) und kannst die Menüs (und damit die Buttons dazu) so voneinander unterscheiden.

[softtouch]

Zitat:

Zitat von himitsu (Beitrag 1526236)

Der Aufrufer muß das übergeben, also der Button des ButtonEdit.

* Manche vergessen es zu setzen :wall:
* und Andere achten nicht richtig drauf, was sie übergeben, bei solchen kombinierten Komponenten.

popupcomponent ist definitiv NIL.
popupcomponent ist nur gesetzt, wenn ich das menu in der popupmenu property eintrage, jedoch NIl wenn ich es in der dropdownmenu property eintrage.

[softtouch]

Zitat:

Zitat von jaenicke (Beitrag 1526237)

Der Quelltext sieht so aus:

Delphi-Quellcode:

    WM_LBUTTONDOWN:
      if FButton.FDropDownMenu <> nil then
      begin
        if not (csDesigning in Parent.ComponentState) then
        begin
          LPoint := ClientToScreen(Point(0, FButton.EditControl.Height));
          FButton.FDropDownMenu.Popup(LPoint.X, LPoint.Y);
        end;
      end

Heißt:
Du hast keinerlei Information, welcher Button dahintersteckt. Das Menü wird einfach nur an Punkt X/Y aufgemacht.

Einziger Weg:
Nachschauen, welcher Button an der Popupstelle liegt. Schön ist das nicht.

Warum klonst du nicht einfach das Menü beim Start des Programms und gibst jedem Button eine eigene Kopie? Dann packst du eine ID in die Eigenschaft Tag (oder nennst das Menü in Name wie den Button plus einen kleinen Zusatz) und kannst die Menüs (und damit die Buttons dazu) so voneinander unterscheiden.

Ja, das scheint wohl die einzigste Möglichkeit zu sein.

[himitsu]

Zwei Popupmenüs (die Items kann man ja kopieren lassen)

oder das Popup selber aufrufen. (anstatt es dem Button zuzuweisen)

Delphi-Quellcode:

procedure TForm4.ButtonedEdit1LeftButtonClick(Sender: TObject);
var
  P: TPoint;
begin
  P := ButtonedEdit1.ClientToScreen(Point(8, 8));  // P := Screen.CursorÄhhhhhhhh; .., OK oder GetCursorPos(P);
  PopupMenu1.PopupComponent := TComponent(1);  // ein Dummy-Objektzeiger, außer du hast ein richtiges Objekt dafür
  PopupMenu1.Popup(P.X, P.Y);
end;

[himitsu]

Wisst ihr, was daran auch noch schlimm ist, wenn jemand das garnicht zuweist?

Sie hätten wenigstewns NIL zuweisen müssen, denn

Delphi-Quellcode:

procedure TForm4.PopupMenu1Popup(Sender: TObject);
begin
  if Assigned(PopupMenu1.PopupComponent) then
    ShowMessage(PopupMenu1.PopupComponent.ClassName + ' ' + PopupMenu1.PopupComponent.Name)
  else
    ShowMessage('nil');
end;

und nun häng das Popup an diese Buttons und an diese oder eine andere Komponente.

* auf Button linksklicken = nil
* auf die Komponente oder Button rechtsklicken = Komponentenname
* nochmal auf Button linksklicken = NICHT nil :freak:


[add]
Vor allem gibt es Referenzen, welche man verwenden kann, denn .LeftButton und .RightButton werden rausgegeben.

[softtouch]

Ich habe es wie vorgeschlagen manuell gemacht und es klappt nun.
Zum Testen wird der Menu Text in das buttonededit control eingefügt.