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;