Mega Code Archive

 

Categories / Delphi / Examples

 

Klavyeden bir tuşa basma etkisi verme

// herhangi bir harf basma : keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), 0, 0); // C harfi basıldı keybd_event(Ord('c'), MapVirtualKey(Ord('c'), 0), 0, 0); // c harfi basıldı // Kontrol tuşunu basma : keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0); // BUNU NEREDE KULLANABİLİRSİNİZ ? // mesela bir edit arama kutusunun altında bir grid arananları listelemek için, // grid'in keypress olayına; Edit1.SetFocus; keybd_event(Ord(Key), MapVirtualKey(Ord(Key), 0), 0, 0); // yazarsanız grid üzerindeyken basılan tuş editin içine yazılır. böylece // kullanıcı mouse ile edite gelip, aradığı metni tekrar yazmak zorunda kalmaz // kesintisiz olarak kullanmaya devam eder. // İYİ ÇALIŞLMALAR DİLEĞİYLE, //