Zitat von
leddl:
Delphi-Quellcode:
procedure WasAuchImmer(Var a : Integer; Var b : String; Sender : TObject)
begin
a := (Sender as TTrackBar).Position;
b := "Ich bin ein String";
end;
procedure TForm1.THRMinBarChange(Sender: TObject);
Begin
WasAuchImmer(ersterInteger, ersterString);
End;
procedure TForm1.HVBarChange(Sender: TObject);
Begin
WasAuchImmer(zweiterInteger, zweiterString);
End;
Du solltest auch drei Parameter übergebne, wenn deine Procedure drei erwartet
