OnChangeValue ?

[Zoot]

Zitat von akurka:

Beim zweitem Vorschlag was meinst Du mit DoSomething ?

Delphi-Quellcode:

procedure TFormMain.DoSomething;
Var i : integer
begin
 for i := 0 to 999999 do
 begin
  beep;
  Sleep(1000);
 end;
end;