Tags bieten sich für sowas doch direkt an. Ich mach das selbst sehr oft:
Delphi-Quellcode:
procedure ButtonClick(Sender: TObject);
var t: Integer;
begin
t:=(Sender as TSpeedButton).Tag;
case t of
1: ;
....
end;
end;
Gerade bei sehr vielen Buttons mit nur geringfügig anderer Funktion rentiert sich das
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)