Einzelnen Beitrag anzeigen

kolbaschedder

Registriert seit: 24. Aug 2006
Ort: Schwäbisch Gmünd
55 Beiträge
 
Delphi 2006 Professional
 
#15

Re: Dynamisch Variablenname erzeugen

  Alt 5. Nov 2007, 12:10
Hallo,

Hatte mal ein ähnliches Problem. TObject hat eine frei verfügbare Eigenschaft "Tag : Integer". Hier kannst du jedem Trackbar eine ID zuordnen. Alle Trackbars bekommen die gleiche obChange zugeordnet.

in deiner onChange kannst du dann sowas machen

Delphi-Quellcode:
  case Sender.tag of
    1 : a := TTrackbar(Sender).position;
    2 : b := TTrackbar(Sender).position;
    3 : c := TTrackbar(Sender).position;
    4 : d := TTrackbar(Sender).position;
    5 : e := TTrackbar(Sender).position;
...
MfG

Kolbi
  Mit Zitat antworten Zitat