引言: 請問各位大大 我在畫面上放入一個speedbutton,二個edit 程式如下 procedure TForm1.Edit1Exit(Sender: TObject); begin if (edit1.text='A') then begin Edit1.SetFocus; abort; end; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin perform(WM_NEXTDLGCTL,0,0); showmessage('a'); end; 當我在edit1輸入值時直接按下speedbutton時會檢查edit1的內容當為某值時就不能繼續往下做 可是abort好像沒有用處的樣子 看help-----abort是會跳出所有程序的意思,不知道正不正確 麻煩各位大大解惑.................thx

dispper你好 这里说下OnExit事件与OnKeyPress事件的区别 OnExit事件：当输入的焦点从一个组件移到另一个组件时，触发该事件； OnKeyPress事件：当用户按下一个单字符键时，触发该事件； 也就是说，如你上面所用，只有当你按下speedbutton時才触发OnExit事件，不切换焦点，则该事件不起作用。所以如果你想在Edit中输入A，做判断是A，则不给用户往下输入，你可以将代码写入OnKeyPress事件中： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (edit1.text='A') then begin Edit1.SetFocus; abort; end; END;试试看，有没有理解错你的意思 ——行径窄处，留一步与人行—— ===== 为什么，经过多年以后，得失的过程如此冷漠 为什么，经过多年以后，风干的伤口心痛依旧

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   if ActiveControl is TEdit then begin
      if Assigned(TEdit(ActiveControl).OnExit) then
         TEdit(ActiveControl).OnExit(ActiveControl);
   end;
   perform(WM_NEXTDLGCTL,0,0);
   showmessage('a');
end;

引言:

請問各位大大
我在畫面上放入一個speedbutton,二個edit
程式如下    procedure TForm1.Edit1Exit(Sender: TObject);  元件焦點離開，觸發!!
begin
  if (edit1.text='A') then begin
    Edit1.SetFocus;
    abort; 這個在此無意義
  end;
  
  //就好比..
  if Edit1.Text='A' then Edit1.SetFocus;
  
end;    使用Button等有焦點元件，會觸發其他元件的OnExit事件
焦點轉移前，會先企判斷OnExit事件，要是沒焦點就不會執行!
procedure TForm1.Button1Click(Sender:TObject);
begin
end;    這元件沒有Handle，不會觸發OnExit事件,所以會直接執行!
所以這兒我們要自己處理!!
procedure TForm1.SpeedButton1Click(Sender: TObject); 
var  Obj:TWinControl;    begin
  Obj:=ActiveControl; 
  perform(WM_NEXTDLGCTL,0,0); //焦點轉移會企執行OnExit;
  if(Obj=ActiveControl)then Exit; //要是焦點沒轉移，OnExit又將焦點轉回來了!!，故不處理!這兒也可以拿abort來用了..
  showmessage('a');
end;     

type
  TForm1 = class(TForm)
  private
    FValid: Boolean;    ...    procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  perform(WM_NEXTDLGCTL, 0, 0);
  if not FValid then
    showmessage('a');
end;    procedure TForm1.Edit1Exit(Sender: TObject);
begin
  FValid := edit1.text <> 'A';      if not FValid then
    Edit1.SetFocus;
end;

引言: 看help-----abort是會跳出所有程序的意思,不知道正不正確

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if (edit1.text='A') then begin
    Edit1.SetFocus;
    //abort;  // 不須要
  end;
end;    procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
  SaveControl : TWinControl ;
begin
  SaveControl :=  ActiveControl ; // 記錄原來的Control
  perform(WM_NEXTDLGCTL,0,0);
  If ActiveControl = SaveControl Then  // 檢查Control是否有移動
    ShowMessage('Not OK')
  Else
    ShowMessage('Ok');
end;
====================================================================
特別聲明:貼完後才注意到,原來與jest0024兄的做法竟然
是一致的,所以以上程式碼的部份可以忽略它,只看文字說明部份即可。
====================================================================

Function TForm1.SaveCheck:Boolean;
Begin
  Result := False; // 先預設為False
  第一項檢查
  If Edit1.Text='A' Then Begin
    Edit1.SetFocus;
    Result := False;
    Exit;
  End;
  第二項檢查
  If Edit2.Text<> .... Then Begin
    Edit2.SetFocus;
    Result := False;
    Exit;
  End;
  其他檢查
  ........
  Result := True;
End;    3.在存檔按鈕中
TForm1.SpeedButton1Click(Sender: TObject);
Begin
  If SaveCheck Then Begin
    // 檢查通過
//  End Else Begin
    // 檢查不通過 ,或不理它也關係
  End;
End;