راهنمايي براي فشردن كليد كيبورد!!

با سلام
ميخواستم ببينم دستور فشرده شدن يك يا چند دكمه از كيبورد در حين اجراي برنامه چيه منظورم اينه كه مثلا كاربر روي يه اديت كليك كرد به طور خودكار Shift+End فشرده بشه تا تمام متن به حالت انتخاب در بياد
ممنون:21:

:19:!!!!!!!!

سلام.
یه کم رو این کار کن ببین به جایی میرسی؟:31:

کد:

---

procedure TForm1.Edit1MouseEnter(Sender: TObject);
begin
keybd_event(VK_END, MapVirtualKey(VK_END, 0), 0, 0);
keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), 0, 0);
end;
procedure TForm1.Edit1MouseLeave(Sender: TObject);
begin
keybd_event(VK_END, MapVirtualKey(VK_END, 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), KEYEVENTF_KEYUP, 0);
end;

---