Deiv
01 de Febrero del 2006

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.

Deiv
01 de Febrero del 2006

No encontrais respuesta pa lo mio?
Gracias

pakitobueu
01 de Febrero del 2006

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