Cambiar el Color de un Formulario en Runtime

[[nlsgarcia]]

tulio,

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.