Tasten sperren

[Sharky]

Hai,

ich habe es mal so gemacht:

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if (ESC_Sperren.Checked) AND (key = #27) then
  begin
   key := #0;
  end;
 if (SPACE_Sperren.Checked) AND (key = #32) then
  begin
   key := #0;
  end;
end;

Der Code steht im OnKeyPress des Formulares. KeyPreview des Formulares ist auf TRUE.

[edit=Daniel B]Tags korrigiert; MfG Daniel B.[/edit]