Evitar Parpadeo

[yusnerqui]

Hola. Quiero hacer en Delphi algo parecido al menú búsqueda de este Foro, es decir tengo un botón y cuando se le de clic estoy desplegando un TPanel con un Label, un Edit y un botón, mi dificultad es que mientras se está desplegando el Panel el Label no para de parpadear. Cómo puedo evitar ese parpadeo?.

Aquí les pongo el código que utilizo.

Código Delphi [-]
procedure TReport.GuardarClick(Sender: TObject);
 var i : byte;
begin
//MGuardar es el TPanel
 MGuardar.Width := 0;
 MGuardar.Height := 0;
 MGuardar.Visible := True;
 for i := 1 to 40 do
 begin
   MGuardar.Height:=MGuardar.Height+1;
   MGuardar.Width:=MGuardar.Width+6;
   MGuardar.Update;
   Application.ProcessMessages;
 end;
 Edit3.SetFocus;
end;

Acepto cualquier recomendación

De antemano mil gracias

[marcoszorrilla]

Mírate la propiedad DoubleBuffered del TPanel que por descender de TwinControl la tiene no así el Tlabel.

Sin embargo si usas un TstaticText, también le podrás aplicar esta propiedad que suele resolver los problemas de parpadeo.

Un Saludo.

[yusnerqui]

Muchas gracias Marcos, Funciona de maravilla.

un saludo