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