Thema: Delphi Aktives Label?

Einzelnen Beitrag anzeigen

Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.130 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Aktives Label?

  Alt 9. Jan 2014, 21:22
Hallo liebe Community,

ich habe folgende Frage. Ich programmiere zurzeit für einen Bekannten ein Programm, welches später als Scoreboard dienen soll (für Pferdetuniere). Ich möchte sozusagen mit Hilfe von Buttons, die einen bestimmten Wert besitzen, Werte in eine Tabelle eintragen.
Hier ein Bild: http://puu.sh/6feR6.png
Kann mir jemand verraten wie ich verschiedene Label als "aktiv" auswähle. So, dass wenn ich einen Button betätige, ein Label den Wert zugewiesen bekommt und dann automatisch das nächste Label ausgewählt wird.

LG Kleines Feuer
Label... hmm würde ich zwar nicht nehmen, aber so:

Delphi-Quellcode:
Var
  MyLabel : Array[0..MaxLabel] : TLabel;
begin
  MyLabel[0] := Label1;
  MyLabel[1] := Label2;
  MyLabel[2] := Label3;
  MyLabel[3] := Label4;
  MyLabel[4] := Label5;
  ...
  AktLabel := 0;
end;

Procedure Button1Click(Sender : TObject);
begin
  MyLabel[AktLabel].Caption := TButton(Sender).Caption;
  inc(AktLabel);
  if AktLabel > MaxLabel then
    AktLabel := 0;
end;
Mavarik
  Mit Zitat antworten Zitat