جعل الزر يعمل بنفس التأتير عند الضغط عليه بزر الماوس

[لؤي]

وعليكم السلام
مثال بسيط وقم بالبناء عليه

PHP كود :

procedure TForm1.ButtonedEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_RETURN) and (ssCtrl in Shift) then
    ButtonedEdit1RightButtonClick(Sender);
end;