كيف اضع زر HotKey1

[المحجوب]

كيف اضع زر Button
بحيث عند الضغط عليه يقوم مباشرة بالتعليق على ctrl

[kachwahed]

السلام عليكم

يقوم مباشرة بالتعليق على ctrl

لم أفهم هذه! ممكن مثال؟

[المحجوب]

اخوي كاش شكراً لمرورك

انا اقصد ارغب عمل اختصارات لأحرف الكيبورد على الفورم

فمثلاً عند الضغط على Button يقوم مباشرة بالضغط على الاختصار المطلوب

اوضح اكثر : ارغب في الوصول الى زر ctrl او f11 من البرنامج دون الرجوع للكيبورد والاستخدام اليدوي

[kachwahed]

شيء مثل هذا:

PHP كود :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F11 then
    ShowMessage('F11 Down!');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Ky: Word;
begin
  Ky := VK_F11;
  Self.KeyDown(Ky, []);
end; 


[المحجوب]

اخوي كاش بعد البحث وجدت اضافة جميله
كيبورد على الفورم والتحكم باالاومر عبره لكن اعطو مثال واحد فقط

كود :

AdvSmoothTouchKeyBoard1.PostKey(VK_CAPITAL, [], true, 29);

ارغب بباقي الاكود الخاصة بالكيبورد لكي اصل اليها
وهذا رابط الاضافة

كود :

http://www.tmssoftware.com/site/atkbd.asp

وهذا ملف pdf شرح الاضافة

كود :

http://www.tmssoftware.com/site/manuals/TMS%20TAdvTouchkeyboard.pdf

كود :

http://www.tmssoftware.com/Images/advtouchkeyboard.png

[محمد عبد العزيز]

السلام عليكم ورحمة الله

بباقي الاكود الخاصة بالكيبورد

راجع هذا الموضوع
http://www.delphi4arab.net/forum/showthread.php?tid=91