Gemeinsame OnClick - Behandlung

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif und herzlich willkommen in unserer DP-Gemeinde,

also, es gibt verschiedene Möglichkeiten.

Abfragen ob Sender ein bestimmtes Objekt ist:
If Sender is Button1 Then ... Den Namen des Senders abfragen:
If TButton(Sender).Name = 'Button1' Then ... Der Eigenschaft TAG der verschiedenen Objekte verschiedene Werte zuweisen und diese abfragen:

Delphi-Quellcode:

Case TButton(Sender).Tag of
  1: ...
  2: ...
  ...
End;

Direkt Sender was zuweisen:
TButton(Sender).Enabled := True; ...

( "TButton(Sender)" und "(Sender as TButton)" kommt auf's Selbe raus )


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif