1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListBox1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  TasteBereitsGedrueckt: Boolean; // globale variable


implementation

{$R *.dfm}

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Tastebereitsgedrueckt then Key := 0;
  Tastebereitsgedrueckt := True;
end;

procedure TForm1.ListBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Tastebereitsgedrueckt := False;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

  
//...
private
  FLiestVor : Boolean;
  procedure VorLesen;
  procedure WndProc(var Message: TMessage); override;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
function ClearKeyboardBuffer:Integer;
var
  Msg: TMsg;
begin
  Result := 0;
  while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE) do
    Inc(Result);
end;

procedure TForm1.VorLesen;
var i : Integer;
begin
  FLiestVor := True;
  Sleep(2000);
  i := ClearKeyboardBuffer;
  Memo1.Lines.Add('Tasten gelöscht: '+IntToStr(i));
  FLiestVor := False;
end;

procedure TForm1.WndProc(var Message: TMessage);
var mgsTemp: TMsg;
begin
  if Message.Msg = WM_MENUSELECT then
   if FLiestVor then
     Message.Result := 0
     else
       VorLesen;

  inherited WndProc(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FLiestVor := False;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TFormMainLeseAs.WndProc(var Message: TMessage);
var mgsTemp: TMsg;
    msg : tagMsg;
    i : integer;
begin
  if Message.Msg = WM_MENUSELECT then
  begin
      i := 0;
      if (DlgOptionVoiceMenu.SpSpeech.VoiceStatus = SPEAKINGDONE) or
         (DlgOptionVoiceMenu.SpSpeech.VoiceStatus = SPEAKINGPAUSED) then
      begin
          //Sprache im Pausenmodus oder fertig
          inc(i);
      end else
      begin
          //Es wird gesprochen
          sleep(2000);
          Message.Result := 0;
          while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE) do
          begin
              Inc(i);
          end;
      end;
  end;
  inherited WndProc(Message);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

//...  
private  
  procedure VorLesen;  
  procedure WndProc(var Message: TMessage); override;  
    { Private-Deklarationen }  
  public  
    { Public-Deklarationen }  
  end;
 
var  
  Form1: TForm1;  

 
implementation  

 
{$R *.DFM}  
function ClearKeyboardBuffer:Integer;  
var  
  Msg: TMsg;  
begin  
  Result := 0;  
  while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE) do  
    Inc(Result);  
end;  
 
procedure TForm1.VorLesen;  
var i : Integer;  
begin
  Sleep(3000);  
  i := ClearKeyboardBuffer;  
  Memo1.Lines.Add('Tasten gelöscht: '+IntToStr(i));
end;  
 
procedure TForm1.WndProc(var Message: TMessage);  
var mgsTemp: TMsg;  
begin  
  if Message.Msg = WM_MENUSELECT then
    VorLesen;
  inherited WndProc(Message);  
end;