Hola,
Como evitar el parpadeo en el siguiente código, mientras tengo el mouse sobre el botón:
(El timer está con un interval = 50, he probado distintos y aún así me muestra el parpadeo en Delphi 7)
type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Timer1: TTimer;
procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Timer1Timer(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Left:=Image1.Left+4;
if Image1.Left+Image1.width >= Form1.width then
Timer1.Enabled:=false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Timer1.Enabled:=false;
end;


end.

Responder

Re: Evitar Parpadeo de Imagen

Enviado por Deiv el día 9 de enero de 2006

No encontrais respuesta pa lo mio?
Gracias

 

Responder

Re: Re: Evitar Parpadeo de Imagen

Enviado por Deiv el día 23 de enero de 2006

.

 

Responder

Re: Evitar Parpadeo de Imagen

Enviado por pakitobueu el día 1 de febrero de 2006

Lo que tienes que hacer es cambiarle el estilo al control que contiene tu imagen
Form3->ControlStyle<<csOpaque;

 

Responder