TButtonEdit, buttons und dropdown menu - wie Aufrufer finden?

[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 von 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.

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


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

[himitsu]

Im onLeftButtonClicked besser mnuMarker.PopupComponent := TButtonedEdit(Sender).LeftButton; nutzen,
falls/wenn sie den Bug im nächsten Jahrtausend repariert haben

Und dann kannst du auch if TPopupMenu(Sender).PopupComponent = DeinButtonedEdit.LeftButton then ...


Und Quellcode bitte als [delphi] ... [/delphi].
Aus dem Foto kann man keine Namen rauskopieren
und unten, in der Übersicht, sieht man deinen Code auch nicht, um nochmal reinzusehn.

[Uwe Raabe]

Ich hatte es schon in der DP-EN gepostet: Kannst du bitte einen QP-Eintrag aufmachen? Es gibt schon einen ähnlichen Eintrag für SplitButtons RSP-33837