AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Tastatur sperren wen...

Ein Thema von NeoDeluxe · begonnen am 18. Feb 2003 · letzter Beitrag vom 21. Feb 2003
Antwort Antwort
Seite 2 von 2     12
janjan

Registriert seit: 16. Jan 2003
Ort: Bonn ("links über Königswinter ")
240 Beiträge
 
Delphi 4 Standard
 
#11
  Alt 18. Feb 2003, 19:23
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?
  Mit Zitat antworten Zitat
Benutzerbild von City Light
City Light

Registriert seit: 17. Sep 2002
314 Beiträge
 
#12
  Alt 18. Feb 2003, 19:27
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;
Bis bald man liest sich
Tino
  Mit Zitat antworten Zitat
Benutzerbild von NeoDeluxe
NeoDeluxe

Registriert seit: 4. Dez 2002
Ort: Behind the Firewall
240 Beiträge
 
Delphi 7 Personal
 
#13
  Alt 18. Feb 2003, 19:31
Sorry , ich habe das noch nicht ausprobiert! Aber das kommt so etwa in die Richtung.
Alex
  Mit Zitat antworten Zitat
Benutzerbild von City Light
City Light

Registriert seit: 17. Sep 2002
314 Beiträge
 
#14
  Alt 18. Feb 2003, 19:36
<NeoDeluxe mal ein Taschentuch reicht>

Grüße Tino
Bis bald man liest sich
Tino
  Mit Zitat antworten Zitat
Benutzerbild von NeoDeluxe
NeoDeluxe

Registriert seit: 4. Dez 2002
Ort: Behind the Firewall
240 Beiträge
 
Delphi 7 Personal
 
#15
  Alt 18. Feb 2003, 19:39
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)
Alex
  Mit Zitat antworten Zitat
Daniel B
(Gast)

n/a Beiträge
 
#16
  Alt 19. Feb 2003, 21:33
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
  Mit Zitat antworten Zitat
Benutzerbild von NeoDeluxe
NeoDeluxe

Registriert seit: 4. Dez 2002
Ort: Behind the Firewall
240 Beiträge
 
Delphi 7 Personal
 
#17
  Alt 21. Feb 2003, 06:13
@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?
Alex
  Mit Zitat antworten Zitat
Benutzerbild von City Light
City Light

Registriert seit: 17. Sep 2002
314 Beiträge
 
#18
  Alt 21. Feb 2003, 12:31
hm ?! beschreib mal was da nicht funktioniert!!!
oder kann das daran liegen das du Delphi 2 hast

gruß Tino
Bis bald man liest sich
Tino
  Mit Zitat antworten Zitat
Benutzerbild von NeoDeluxe
NeoDeluxe

Registriert seit: 4. Dez 2002
Ort: Behind the Firewall
240 Beiträge
 
Delphi 7 Personal
 
#19
  Alt 21. Feb 2003, 14:10
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!
Alex
  Mit Zitat antworten Zitat
Benutzerbild von City Light
City Light

Registriert seit: 17. Sep 2002
314 Beiträge
 
#20
  Alt 21. Feb 2003, 14:19
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.
Bis bald man liest sich
Tino
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2020 by Daniel R. Wolf