Objekt übergeben

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