space taste sperren und freigeben ohne onKeyPress

[Katrin_K]

hi

Ich möchte die Spacetaste Sperren, da ich mir mit dem tastendruck eine Nachricht anzeigen lassen möchte.

Delphi-Quellcode:

 if Windows.GetAsyncKeyState(32)<0 then   //32 Space
    begin
      showmessage('Test');
    end

Die Nachricht wird mir aber nicht angezeigt, weil der Tastendruck Das Fenster gleich wieder schließt.

Oder kann man vielleicht das GetAsyncKeyState-Feld veränderm???


gruss katrin

[Cyberbob]

Was spricht gegen:

Delphi-Quellcode:

if Key = ' ' then
begin
  ShowMessage('Hallo Welt!');
end;

Warum wird das Fenster wieder grschlossen? Benutzt du ein normales Formular oder einen Dialog?

[Katrin_K]

Ich frage mit

Delphi-Quellcode:

Windows.GetAsyncKeyState(32)<0

ob die Leertaste gedrückt wurde.

Wenn das der Fall ist Zeige ich mir ein MessageFenster

Delphi-Quellcode:

showmessage('Test');

an.

Da aber in dem Fenster der Focus auf dem OK-Button liegt und das Signal von der gedrückten Space an das Messagefenster weitergegeben wird, so schließt sich das Fenster wieder sofort.

Delphi-Quellcode:

if Windows.GetAsyncKeyState(32)<0 then   //32 Space
    begin
      //space sperren oder feld für gedrückte tasten manipulieren. sprich: gedrückteTastenFeld[32] := 0;  
      showmessage('Test');
    end

[Olli]

Tja, wie wäre es als Workaround ein eigenes Fenster zu benutzen? Bsp: MessageBoxIndirect()!

[luigied]

Hi,

wäre es nicht auch möglich bei

Delphi-Quellcode:

onKeydown

ein anderes Form zu öffnen und darin den Text anzeigen zu lassen? In

Delphi-Quellcode:

onKeyup

könnte man das Form doch wieder ausblenden.

[Katrin_K]

Danke luigied für deine Antwort, aber das ist leider keine Lösung für mein Problem.

Hi Olli
ich werde mal schaun, ob ich einen workaround machen kann.
Sonst mache ich das nicht, weil dann ein problem nach dem anderen umgangen wird anstatt eine optimale lösung zu finden. :wink:
trotzdem danke für die idee.

gruss katrin

[Christian Seehase]

Moin Katrin,

wo fragst Du die Taste denn ab?

[Katrin_K]

Ich habe auf meiner Fomr ein Image das ich verändere in einer endlosschleife.
in der schleife frage ich nun die taste space ab

Delphi-Quellcode:

if Windows.GetAsyncKeyState(32)<0 then

um den bildverändernden Vorgang zu unterbrechen.

Das klappt auch alles solange ich nicht die space oder enter nehme.
Aber ich will die space taste benutzen. ggrrrr :wall:

[luigied]

Sorry.
Ich glaube ich hab mich falsch ausgedrückt :oops:
Ich meinte, dass in dem neuen Form deine Nachricht in einem Label oder so ausgegeben wird.
(so zu sagen als selbstgebautes ShowMessage)

Was willst du denn darin ausgeben, bzw. warum 'test'?

[DGL-luke]

hmm...

du könntest ja ein Application.Processmessages einbauen, dann kannst du den abbruch mit einem button machen.

was für ein problem hast du genau? welches fenster schließt sich? gleich wieder?