Обработчик событий SpeedButton

[roman_dark]

Помогите написать обработчик события OnMouseMove так что-бы при наведении на кнопку она срабатывала через определенное время, допустим есть таймер который будет срабатывать через 3 сек. и поместить такое условие как: нажатие клавиши происходила только в том случае если курсор мыши находится на кнопке 3 секунды, если же курсор отводится в сторону тогда таймер сбрасывается и нажатие кнопки отменяется

[come-on]

Так в чем затруднения?

[roman_dark]

не отменяет действие написания текста, при отведении курсора мыши в сторону
Вооот

[come-on]

Предлагаете погадать?

[roman_dark]

мне нужен аналог свойства OnMouseLeave

[Stilet]

В качестве идеи, предполагая что речь идет о Делфи могу предложить такой вариант без таймеров но понадежнее:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses  dateutils, windows,
			Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons;

type

	 { TSpeedButton }

	 { MyThread }

   MyThread=class(TThread)
	   public Button:TSpeedButton;
     protected procedure execute; override;
	 end;

   TSpeedButton=class(Buttons.TSpeedButton)
     private
         tt:MyThread;
     public
         procedure Go;
	 end;

			{ TForm1 }

   TForm1 = class(TForm)
						SpeedButton1: TSpeedButton;
						procedure SpeedButton1Click(Sender: TObject);
			private
						{ private declarations }
			public
						{ public declarations }
			end;

var
			Form1: TForm1;

implementation

{$R *.lfm}

{ MyThread }

procedure MyThread.execute;
var dt:TDateTime;
begin
 dt:=now;
 Button.Enabled:=false;
 while SecondsBetween(now,dt)<30 do
   sleep(10);
 Button.Enabled:=true;
end;

{ TSpeedButton }

procedure TSpeedButton.Go;
begin
      tt:=MyThread.Create(true);
      tt.FreeOnTerminate:=true;
      tt.Button:=self;
      tt.Start;
end;

{ TForm1 }

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
    TSpeedButton(Sender).Go;
end;

end.

[roman_dark]

procedure TSpeedButton.Go;
begin
tt:=MyThread.Create(true);
tt.FreeOnTerminate:=true;
tt.Button:=self;
tt.Start;
end;

Опиши пожалуйста вот эту процедуру.. я не совсем понял что тут происходит

[roman_dark]

а все.. понял.. пасибо большое)