Mach das doch besser als Cast mit Typunterscheidung. Bsp:
Delphi-Quellcode:
if Sender is TButton then
begin
with TButton(Sender) do
.
.
end
else
if Sender is TMainMenuItem then
with TMainMenuItem(Sender) do
.
.
end;
Ist eleganter als den Sender gegen jede existiernde Instanz zu prüfen. Und wenn du dann doch noch unter einzelnen Buttuns oder MenuItems unterscheiden musst, so würde ich da die Eigenschaft "Tag" nutzen - oder wenn alle (ganz sicher) eine einzigartige Beschriftung haben, dann geht's auch über die Caption. Das ist aber langsamer und nicht so schön, da wenn du diese dann änderst das Contorl nicht mehr identifiziert werden kann.
Gruss,
Fabian
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel