Forum: Object-Pascal / Delphi-Language
Delphi
by dataspider,
22. Okt 2006
Man kann auch der Einfachheit halber jedem Button ein Tag verpassen und über dieses steuern:
if Assigned(PopupMenu1.PopupComponent) then
begin
case PopupMenu1.PopupComponent.Tag of
0: mach dies;
1: mach das
end;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by dataspider,
22. Okt 2006
Hi,
es gibt einige Lösungen. Die einfachste ist über den Name, welcher ja in TComponent schon existiert.
procedure TForm1.Clickmich1Click(Sender: TObject);
Var
AName: String;
begin
AName := PopupMenu1.PopupComponent.Name;
ShowMessage(AName);