Tastatur sperren wen...

[janjan]

Nimm ein Objekt das man nicht per Tab auswählen kann

Ernsthaft, was soll denn das für ein Objekt sein, das man treffen soll?

[City Light]

Zitat von NeoDeluxe:

THX
Hat jemand eine andere Idee?

Es ist doch das wo nach du doch suchst oder wie ??

wenn du es so machst bleibt die Mouse noch aktiv!

Delphi-Quellcode:

procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: Boolean); 
begin
  if FConnected then
    case Msg.Message of WM_KEYFIRST..WM_KEYLAST: Handled := True;
    end;
end;

[NeoDeluxe]

Sorry , ich habe das noch nicht ausprobiert! Aber das kommt so etwa in die Richtung.

[City Light]

<NeoDeluxe mal ein Taschentuch reicht>

Grüße Tino

[NeoDeluxe]

Danke. Ich glaub ich habe bisher mehr Entschuldigungen als normale Beiträge in diesem Forum geschrieben! Aber das macht nichts ! Ich entschuldige mich gerne 8)

[Daniel B]

Hi,

wer ein bisschen masochistisch veranlagt ist, dem könnte dies helfen:

"Rundll Keyboard,Disable"

Wie man dies ausführt werde ich allerdings nicht dazu schreiben. Aber so kann man die Tastatur ausschalten und zwar komplett!

Grüsse, Daniel

[NeoDeluxe]

@City Light:
Sorry aber deine Methode geht irgendwie nicht! warum weis ich selber net, aber es passiert gar nichts. Ich muss die Tastatur komplett ausschalten! Dann geht das, oder hat jemand eine andere idee?

[City Light]

hm ?! beschreib mal was da nicht funktioniert!!!
oder kann das daran liegen das du Delphi 2 hast

gruß Tino

[NeoDeluxe]

Glaub keiner Statistik, die du nicht selbst gefälscht hast!(Anonymer Statistiker!)
Also ich habe sehr viele Delphi Versionen, bei allen geht das nicht. Ich mache einen Edit auf dem Form und man kann trotzdem tippen. Warum? Kein Plan!

[City Light]

Wie sieht denn deinen Unit aus?

Ich habs mal getestet und bei mir läufst Super!

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var 
  FConnected: Boolean; 

procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: Boolean); 
begin 
  if FConnected then
    case Msg.Message of 
      WM_KEYFIRST..WM_KEYLAST:     // Keyboard events
        Handled := True
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppOnMessage;
  FConnected := True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Application.OnMessage := nil;
end;

end.