|
Gracias por la respuesta delphi.com.ar, ya te debo varias.
Estoy haciendo pruebas, pero no me sale.
Pongo este codigo:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
FTimer : TTimer;
begin
FTimer := TTimer.Create(Self);
FTimer.Enabled := True;
FTimer.Interval := 400;
FTimer.OnTimer(Sender: TObject);
begin
{Lo que deseo se haga y no se haga, cambio de color}
Pero me dice que espera un paréntesis y se encuentra con dos puntos.
Me pide un TNotifyEvent como parámetro, pero como lo pongo.
Así que desde 'Interval' no se como seguir.
end;
end;
Perdonar si es una bobada, pero a los torpes les pasa esto.
Un saludo.
Tonio.
|