Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
12. Mär 2003
Da sind kleine "Luckies" eben im Vorteil.
Aber jetzt Schluß, wird zu sehr off-topic. Aber es ist ja schon alles geklärt, wie es aussieht, sollte also nicht so schlimm sein.
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
12. Mär 2003
Aber um Längen, äääh, Schwanzflossen. Oder wo bis du noch rumgeschwommen? :P
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
12. Mär 2003
Ich würde es so machen:
procedure TForm1.myLabelClick(Sender: TObject);
begin
if Sender is TLabel then
begin
case (Sender as TLabel).Tag of
0: ShowMessage(IntToStr((Sender as TLabel).Tag));
1: ShowMessage(IntToStr((Sender as TLabel).Tag));
2: ShowMessage(IntToStr((Sender as TLabel).Tag));