Home » Tipps & Tricks » Komponenten » Menüs » Aufrufende Komponente des Popupmenus ermitteln

Aufrufende Komponente des Popupmenus ermitteln

Es kommt häufig vor, dass ein Pupupmenu verschiedenen Komponenten zugewiesen wird. Möchte man nun ermitteln, über welche Komponente das Popupmenu aufgerufen wurde, reicht es die Eigenschaft ‚PopupComponent‘ abzufragen, da dort eine Referenz auf die Komponente gespeichert wird.Da die Eigenschaft vom Typ TComponent ist, muss in vielen Fällen gecastet werden, um auf die Methoden und Eigenschaften der Komponente zugreifen zu können:

procedure TForm1.miCaptionClick(Sender: TObject);
begin
  if Popupmenu1.PopupComponent is TEdit then
    TEdit(Popupmenu1.PopupComponent).Text := 'Hallo';
end;