DBR Delphi-Ecke

// Innerhalb der Anwendung wird die TAB-Taste gesperrt, damit nicht mehr
// von Control zu Control gesprungen werden kann.
// (Natürlich können damit auch andere Tasten gesperrt werden)

// Getestet mit D4 unter WinME

type 
  TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private-Deklarationen} 
  public 
    procedure Sperre(var Msg: TMsg; var Handled: Boolean); 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.Sperre(var Msg: TMsg; var Handled: Boolean); 
begin 
  if Msg.message = WM_KEYDOWN then 
    if Msg.wParam = VK_TAB then Handled := true; 
end; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Application.OnMessage := Sperre; 
end;