DELPHI: Tastaturcode, Tastaturbelegung ???
problem:
die drei tasten <Strg><Alt><Entf> sollen während eines (Delphi) programmlaufes deaktiviert sein, damit ein user das programm nicht ohne bestimmte bedingungen beenden kann.
dieser code deaktiviert nur <Alt><F4>:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm_DK.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
label a;
begin
//if key=18 then showmessage('alt');
//<Strg>=17 <ALT>=18 <Entf>=46, <F4>=115 <a>=65
//Listbox1.Items.Add('Edit1.KeyPress'+ inttostr(Key));
a:
if key=18 then begin key:=0; goto a; end;
if key=115 then begin key:=65; goto a; end;
if key=17 then begin key:=65; goto a; end;
if key=46 then begin key:=65; goto a; end;
end; |
wer kann was vorschlagen?
danke.
Moderiert von 
Tino: Code-Tags hinzugefügt.
