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.