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)
Código Delphi
[-]
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.