procedure TForm.Image2Click(Sender: TObject); begin 請問各位大大我該如何用Image2Click觸發Edit2KeyDown的內容 procedure TForm.Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

------
Xax

Hi 20052020,    

procedure TForm1.Image1Click(Sender: TObject);
begin
  Edit1.Perform(WM_KEYDOWN,0,0)
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

用Image2Click觸發Edit2KeyDown的內容 Edit1.Perform(WM_KEYDOWN,0,0),秀訊息可以 但是我要執行如下 Label6.Caption:=''; //先清除Label6的內容 if(KEY=VK_RETURN)then if(Edit2.Text = '')then begin Label6.Caption:=('密碼不可以空白'); end;

------
Xax

Hi 20052020,    你的意思是相當於在 Edit1 按下 Enter 鍵？

procedure TForm1.Image1Click(Sender: TObject);
begin
  Edit1.Perform(WM_KEYDOWN,13,0)
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

感謝Fishman大大

------
Xax