woher kommt der Click - PopupMenü

[ChrisE]

Hallo Moelski,

wenn ich dich richtig verstehe, erzeugst du eine oder mehrere WPRichText-Komponente auf deinem Form an einer irgendeiner Stelle und es können mehrere dieser RTF-Komponenten da sein. "Alle" haben aber dieses Popupmenu.

Nun, die WPRichText-Komponente erhält ja den Focus wenn du darauf klickst - unabhängig ob Rechtsklick oder Linksklick. Somit sollte die AktiveControl mit einer abfrage wie

Delphi-Quellcode:

if ActiveControl is TWPRichText then begin
  with ActiveControl as TWPRichText do begin
    // tu was immer du tun möchtest
  end else begin
    // Fehlermeldung, da Popup ohne die entsprechende Komponente
  end;
end;

die Lösung bringen. Nicht getestet. Nur einfach drauf los gehackt.

Gruß, Chris