請問一下,我有一個 form , 上面放了幾個 DBEdit1 , DBEdit2 , DBEdit3 ..... 等來自Tclientdataset , 當我按下[F1] 時要如何知道
游標停在哪個欄位 ??

Form1.KeyPreview 屬性要設為 True
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i: integer;
de: TDBEdit;
begin
if Key = VK_F1 then
begin
for I := 0 to ControlCount -1 do
begin
if (Controls[I] is TDBEdit) then
begin
de := TDBEdit(Controls[I]);
if de.Focused then
ShowMessage(de.DataField);
end;
end;
end;
end;

感激! 可以了 !