type
TAutoButton1 = class(TButton)
private
procedure WmMouseMove (var Msg: TMessage);
message wm_MouseMove;
end;
   
procedure TAutoButton1.WmMouseMove (var Msg: TMessage);
begin
inherited;
if Assigned (OnClick) then
OnClick (self);
end;

type  
TAutoButton1 = class(TButton)  
private  
procedure WmMouseMove (var Msg: TMessage);  
message wm_MouseMove;  
end;  
   
procedure TAutoButton1.WmMouseMove (var Msg: TMessage);  
begin  
inherited;  
if Assigned (OnClick) then  
OnClick (self);  
end;  

type
TAutoButton1 = class(TButton)
private
procedure WmMouseMove (var Msg: TMessage);
message wm_MouseMove;
end;
   
procedure TAutoButton1.WmMouseMove (var Msg: TMessage);
begin
inherited;
if Assigned (OnClick) then
OnClick (self);
end;

type  
TAutoKind = (akTime, akMovement, akBoth);  
   
TAutoButton2 = class(TButton)  
private  
FAutoKind: TAutoKind;  
FMovements: Integer;  
FSeconds: Integer;  
// really private  
CurrMov: Integer;  
Capture: Boolean;  
MyTimer: TTimer;  
procedure EndCapture;  
// обработчики сообщений  
procedure WmMouseMove (var Msg: TWMMouse);  
message wm_MouseMove;  
procedure TimerProc (Sender: TObject);  
procedure WmLBUttonDown (var Msg: TMessage);  
message wm_LBUttonDown;  
procedure WmLButtonUp (var Msg: TMessage);  
message wm_LButtonUp;  
public  
constructor Create (AOwner: TComponent); override;  
published  
property AutoKind: TAutoKind  
read FAutoKind write FAutoKind default akTime;  
property Movements: Integer  
read FMovements write FMovements default 5;  
property Seconds: Integer  
read FSeconds write FSeconds default 10;  
end;

procedure TAutoButton2.WmMouseMove (var Msg: TWMMouse);  
begin  
inherited;  
if not Capture then  
begin  
SetCapture (Handle);  
Capture := True;  
CurrMov := 0;  
if FAutoKind <> akMovement then  
begin  
MyTimer := TTimer.Create (Parent);  
if FSeconds <> 0 then  
MyTimer.Interval := 3000  
else  
MyTimer.Interval := FSeconds * 1000;  
MyTimer.OnTimer := TimerProc;  
MyTimer.Enabled := True;  
end;  
end  
else // захватываем  
begin  
if (Msg.XPos > 0) and (Msg.XPos < Width)  
and (Msg.YPos > 0) and (Msg.YPos < Height) then  
begin  
// если мы подсчитываем кол-во движений...  
if FAutoKind <> akTime then  
begin  
Inc (CurrMov);  
if CurrMov >= FMovements then  
begin  
if Assigned (OnClick) then  
OnClick (self);  
EndCapture;  
end;  
end;  
end  
else // за пределами... стоп!  
EndCapture;  
end;  
end;  
   
procedure TAutoButton2.EndCapture;  
begin  
Capture := False;  
ReleaseCapture;  
if Assigned (MyTimer) then  
begin  
MyTimer.Enabled := False;  
MyTimer.Free;  
MyTimer := nil;  
end;  
end;  
   
procedure TAutoButton2.TimerProc (Sender: TObject);  
begin  
if Assigned (OnClick) then  
OnClick (self);  
EndCapture;  
end;  
   
procedure TAutoButton2.WmLBUttonDown (var Msg: TMessage);  
begin  
if not Capture then  
inherited;  
end;  
   
procedure TAutoButton2.WmLButtonUp (var Msg: TMessage);  
begin  
if not Capture then  
inherited;  
end;  

type  
TInputButton = class(TButton)  
private  
procedure WmChar (var Msg: TWMChar);  
message wm_Char;  
end;  
   
procedure TInputButton.WmChar (var Msg: TWMChar);  
var  
Temp: String;  
begin  
if Char (Msg.CharCode) = #8 then  
begin  
Temp := Caption;  
Delete (Temp, Length (Temp), 1);  
Caption := Temp;  
end  
else  
Caption := Caption + Char (Msg.CharCode);  
end;  

type  
TInputLabel = class (TLabel)  
private  
MyEdit: TEdit;  
procedure WMLButtonDown (var Msg: TMessage);  
message wm_LButtonDown;  
protected  
procedure EditChange (Sender: TObject);  
procedure EditExit (Sender: TObject);  
public  
constructor Create (AOwner: TComponent); override;  
end;  

constructor TInputLabel.Create (AOwner: TComponent);  
begin  
inherited Create (AOwner);  
   
MyEdit := TEdit.Create (AOwner);  
MyEdit.Parent := AOwner as TForm;  
MyEdit.Width := 0;  
MyEdit.Height := 0;  
MyEdit.TabStop := False;  
MyEdit.OnChange := EditChange;  
MyEdit.OnExit := EditExit;  
end;  
   
procedure TInputLabel.WMLButtonDown (var Msg: TMessage);  
begin  
MyEdit.SetFocus;  
MyEdit.Text := Caption;  
(Owner as TForm).Canvas.DrawFocusRect (BoundsRect);  
end;  
   
procedure TInputLabel.EditChange (Sender: TObject);  
begin  
Caption := MyEdit.Text;  
Invalidate;  
Update;  
(Owner as TForm).Canvas.DrawFocusRect (BoundsRect);  
end;  
   
procedure TInputLabel.EditExit (Sender: TObject);  
begin  
(Owner as TForm).Invalidate;  
end;