Ctrl + B

[mrtblt]

Merhaba Arkadaslar

keypress(char) ve keydown(word) eventlerinde CTRL + B kullanmak istiyorum fakat bununla alakali onca arastirma yapmama ragmen bu tus grubunun char ve word degerlerini bulamadim.

Yardimci olacak birisi var mi acaba?

[SimaWB]

Kod: Tümünü seç

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState) ;
begin
   if ((ssCtrl in Shift) AND (Key = ord('B'))) then
     Caption := 'Ctrl+B';
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #2 then 
    Caption := 'Ctrl+B';
end;

[mrtblt]

Eywallah Hocam,

Cevabin icin oncelikle tesekkur ederim.

Anladigim kadari ile bu tus kombinasyonunun char degeri #2. Bu CTRL+A da #1 mi demek anlamina geliyor. Ve diger alfabe harfleride sira ile mi gidiyor char icin?

[SimaWB]

Aslında ben de OnKeypress'deki karşılığını bilmiyordum ama şöyle yaparak

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Caption := IntToHex(Ord(Key), 2);
end;

bastığım tuşun Hex karşılığını formun başlığına yazdırıp öğrendim