我有個form，上面放著TEdit、TMemo、TComboBox等，想要寫如果滑鼠移到元件上，在這裡我想要如果停留2秒以上此元件就能自動取得焦點，但不知道要如何來做。

編輯記錄

提供一個方法，但這是想法而以，沒有去寫出來

你要計時２秒，你應該會用到Timer那一個元件，可以設定其中計時的秒數
設寫１秒，在Timer中去掃瞄Form中所有的元件的位置
如：Top,Left，Top Heigth,Left＋Width
再判讀Mouse指標位置(記得有函數或找一下舊文章)

IF的敘述應該會如下(以下是虛擬的程式碼)

IF (muse.x >= Left And Mouse.x <= Left Width)
And (Mouse.y >= Top And Mouse.y <= Top Heigth) THEN

再弄一個記錄的陣列Record去記錄目前在那一個元件，其中一欄位來記錄秒數
當為記錄秒數的元件為２時，就SetFocus到那個元件。
若記錄中有元件為１，而目前是另一個為１，那舊的就要清除為０

你可以試試...

------
初學、初學、學了很久...還是在初學階段..Orz

開一個form
放一個 edit 一個 memo 一個timer
設定 timer的interval

[code delphi]
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
Procedure SetWinControlFocus(const WinObj:TWinControl);
public
{ Public declarations }
end;
var
Form2: TForm2;
OBJ : TWinControl;
implementation
{$R *.dfm}
Procedure TForm2.SetWinControlFocus(const WinObj:TWinControl);
Begin
if Obj = nil then Obj := WinOBJ;
if Obj <> WinObj then
Begin
Obj := WinObj;
Timer1.Enabled := False;
Timer1.Enabled := TRUE;
End;
End;
procedure TForm2.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
SetWinControlFocus(Sender As TWinControl);
end;
procedure TForm2.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
SetWinControlFocus(Sender As TWinControl);
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
(OBJ As TWinControl).SetFocus;
end;
end.
[/code]

feng的方法不錯
但是想加入ComboBox還有問題

TComboBox   也可以喔，
把 SetWinControlFocus(Sender As TWinControl); 寫在 OnMouseEnter 事件裡即可。