key

0

Jak zrobić że po kliknięciu na przycisk ctrl+r wyświetla sie showmessage('czesc');
Ja wiem jak sie robi na jeden przycisk np enter to if key=VK_ENETABLE then showmessage('czesc') a na CTRL+R jak zrobic??

0

można chyba

if key=xx and key=zzz

tak popatrzyłem na to i to jest chyba troszke bez sensu ale może będzie działać :-D :-D :-D Faza :-D :-)
aha ściągni sobie programik któy pokazuje odpowiedniki różnych znaków w kodzie ASCI wtedy enter to nr. i każdy inny klawisz
na 4p jest mała rzecz a cieszy

0

W OnFormCreate wpisz taki kod: KeyPreview := True;

A następnie uzupełnij procedure OnKeyDown formy:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if ((ssCtrl in Shift) and (Key = 82)) then ShowMessage('Czesc');
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0