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;