大大:小弟問題是這樣的假如一個From1裡有2個Edit1,Edit2和5個bitbtn1,bitbtn2,bitbtn3,bitbtn4,bitbtn5,當程式執行時,焦點是在Edit1的身上,問題一當我將滑鼠移至bitbtn1或是任何一個並按下時,能取得上一個setfocus是在哪一個元件身上嗎?應為要將bitbtn上面的值傳至前一個元件(Edit1或Edit2)身上,感謝大大們

把那些Edit的OnExit都指向這個

procedure TForm1.SetLastControl(Sender: TObject);
begin
fLast:=Sender as TControl;
end;

然後ButtonClick就可以用

procedure TForm1.Button1Click(Sender: TObject);
begin
TEdit(fLast).Text:=TEdit(fLast).Text '1';
end;

感恩大大的教導,小弟還是有一點點的疑惑,在向大大請教

下面這個函式是不是要自己宣告,那fLast這個變數是不是要宣告全域的呢

SetLastControl這一個主要是怎樣的一個功能呢

procedure TForm1.SetLastControl(Sender: TObject);
begin
fLast:=Sender as TControl;
end;

fLast宣告在

TForm1=class(TForm)

private

fLast:TControl;

而SetLastControl(Sender:TObject)是Edit.OnExit事件