Objekt übergeben

[Pfanne]

Hallo,

ich habe mehrere TTrackBar´s deren Event "OnChange" in der selben Procedure landet.

Delphi-Quellcode:

procedure Tfrm_Server.tb_ACh1Change(Sender: TObject);   {insgesamt 8 Trackbars}
var myTrackBar: TTrackBar;
begin
  ??????
  ShowMessage(IntToStr(myTrackBar.Position));
end;

Wie bekomme ich das Object in myTrackBar, geht das überhaupt?

Danke

[jfheins]

Guck dir mal den Parameter an, der übergeben wird

[Pfanne]

ich bin leider in objecten überhaupt nicht fit.

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

[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.