ü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;
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."