tulio,
Cita:
Empezado por tulio
...en un botón quiero cambiar el color del formulario, hacer una pausa y cambiar nuevamente el color...
|
Revisa este código:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Color := clYellow;
Form1.Repaint;
Sleep(1000);
Form1.Color := clNavy;
Form1.Repaint;
Sleep(1000);
Form1.Color := clRed;
Form1.Repaint;
Sleep(1000);
Form1.Color := clGreen;
Form1.Repaint;
Sleep(1000);
Form1.Color := clWindow;
Form1.Repaint;
end;
El código anterior en Delphi 7 sobre Windows 7 Professional,
cambia el color del formulario en runtime, como se muestra en la siguiente imagen:
Te sugiero revisar el Punto # 3 de la
Guía de Estilo Estándar.
Gracias por tu colaboración
Nelson.