Objekt übergeben

[Neutral General]

Zitat von Pfanne:

übergeben wird ein objekt, aber wie bekomme ich das in ein Trackbar?

Casten!

Delphi-Quellcode:

procedure Tfrm_Server.tb_ACh1Change(Sender: TObject);
var myTrackBar: TTrackBar;
begin
  myTrackBar := TTrackBar(Sender); 
  ShowMessage(IntToStr(myTrackBar.Position));
end;

oder für Paranoide etwas schöner:

Delphi-Quellcode:

procedure Tfrm_Server.tb_ACh1Change(Sender: TObject);
var myTrackBar: TTrackBar;
begin
  if Sender is TTrackbar then
  begin
    myTrackBar := TTrackBar(Sender); 
    ShowMessage(IntToStr(myTrackBar.Position));
  end;
end;

[Pfanne]

OK, ich geb zu, das hätte man wirklich hinbekommen können!

[himitsu]

Zitat von Neutral General:

oder für Paranoide etwas schöner:

Vorsichtig: (sicherheitshalber nochmal prüfen)

Delphi-Quellcode:

procedure Tfrm_Server.tb_ACh1Change(Sender: TObject);
begin
  if Sender is TTrackbar then
    ShowMessage(IntToStr(TTrackBar(Sender).Position));
end;

Paranoid: (auf nummer sicher, und wenn was nicht stimmt, dann läßt man's knallen)

Delphi-Quellcode:

procedure Tfrm_Server.tb_ACh1Change(Sender: TObject);
begin
  ShowMessage(IntToStr((Sender as TTrackBar).Position));
end;

[Pfanne]

OK, wird ja immer besser...

Von den objektorientierten Grundzügen habe ich eine Vorstellung. Leider hapert es mit der Syntax und der detailirten Vorgehensweise.

Letztendlich möchte ich eine Prozedur schreiben.
Ich habe in einer Groupbox 8 Trackbars + labels ect.
sowie ein globales array[1..8] für die Position der Trackbars.

Nun möchte ich nicht jedem Trackbar.OnChange eine eigene Prozedur zuweisen die dann das entsprechende array füllt.

Ich habe mir das "schematisch" so vorgestellt:

Delphi-Quellcode:

procedure Tfrm_Server.TrackBarChange(Sender: TObject);
var TrackBar_Value: array[1..8] of integer;
    i as integer;
begin
  i := 1;
  For TTrackBar(Sender) in Groupbox  do
  begin
   TrackBar_Value[i] := IntToStr(TTrackBar(Sender).Position);
  end;
end;

oder

Delphi-Quellcode:

procedure Tfrm_Server.TrackBarChange(Sender: TObject);
var TrackBar_Value: array[1..8] of integer;
    i,j as integer;
begin
  i := 1;
  For j := 1 to Groupbox.objects.count  {alle Objekte auch Label ect.}
  begin
    if Sender is TTrackbar then
    begin
      TrackBar_Value[i] := IntToStr(TTrackBar(Sender).Position);
      i := i+1;
    end;
  end;
end;

Könnte mir jemand bei der richtigen Syntax / Struktur behilflich sein?
Macht das o.g. so überhaupt Sinn?

Danke für eure Hilfe.

[joachimd]

Zitat von Pfanne:

Ich habe in einer Groupbox 8 Trackbars + labels ect.
sowie ein globales array[1..8] für die Position der Trackbars.

Rein aus dem Bauch raus würde ich hier keine doppelte Datenhaltung vorsehen (Position in Trackbar und in array), sondern direkt die Trackbars ins array speichern. Kommt natürlich darauf an, was Du daraus machen willst bzw. musst

[chuckholdt]

Du kannst auch mit dem Tag property arbeiten, dann ist die Zuordnung sicher

Chuck

[Pfanne]

Zitat:

Rein aus dem Bauch raus würde ich hier keine doppelte Datenhaltung vorsehen (Position in Trackbar und in array), sondern direkt die Trackbars ins array speichern. Kommt natürlich darauf an, was Du daraus machen willst bzw. musst

Werd ich mal ins Auge fassen.

Um mein Object-Verständnis zu vertiefen, wäre es für mich trotzdem von interesse zu wissen, ob meine "Objekt-Gedanken" richtig und machbar sind.

Zitat:

Du kannst auch mit dem Tag property arbeiten, dann ist die Zuordnung sicher

Dafür reichen meine Kenntnisse leider nicht, ich habe leider keine Vorstellung was du damit meinst

Am meiseten würde es mir weiterhelfen, wenn ihr die von mir vorgeschlagenen Proceduren richtigstellen könntet bzw. mir meine Gedankenfehler aufzeigen könntet.

Danke für die schnellen Antworten.

[himitsu]

Also, du könntest ein array[1..8] of TTrackBar anlegen, anstatt deines jetzigen Arrays, darüber hast du jederzeit direkten Zugriff auf eine Trackbars.
> Dieses Array befüllst du dann im OnCreate deiner Form.

Dabei Helfen kann auch FindComponent/FindComponent.

Zitat:

.Tag

Ist dir schonmal aufgefallen, daß nahezu alle VCL-Componenten (alles was von TComponent abgeleitet ist und welches man oftmals direkt auf seine Form ziehen kann) ein Property mit dem Namen "Tag" besitzt?

Dieses Property wird von der VCL (Delphi) nicht genutzt und ist für den Programmierer gedacht,
dieser kann dort sonstwas reinmachen ... was er nur will und was in diesen Integer reinpaßt.

Da könnte man z.B. im OI irgendwelche Zahlen eintragen und dann im Programm schauen was da drinsteht und jeweils anders reagieren.