Aufrufende Komponente des Popupmenus ermitteln |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
Ähnliche Seiten: