Einzelnen Beitrag anzeigen

Benutzerbild von CK_CK
CK_CK

Registriert seit: 31. Aug 2005
Ort: Dortmund, Germany
388 Beiträge
 
Delphi 2006 Enterprise
 
#7

Re: Delphi - Versteckte Tastatureingaben

  Alt 11. Jun 2006, 15:41
Also, das hier funktioniert:
1. globale Variablen (vor der ersten Prozedur einfügen:
Code:
const
  geheimwort: String = 'geheimwort';

var
  tmpstr: String = '';
2. Den OnKeyPress-Event des Formulars doppelt anklicken und den Code einfügen:
Code:
//aktuelles Zeichen vergleichen//
  tmpstr := tmpstr + key;

  //ganzes Wort gefungen
  if Copy(tmpstr,Length(tmpstr)-Length(geheimwort)+1,Length(geheimwort))=geheimwort then begin
    ShowMessage('GEHEIMWORT EINGETIPPT'); //oder andere Prozedur...
    tmpstr := '';
  end;
3. Alle Komponenten markieren, die auf dem Formular sind und als OnKeyPress-Event "FormKeyPress" auswählen (Drop-Down-Liste)...

Bei mir klappt das wunderbar... (die Version oben hat bei mir übrigens auch nicht funktioniert...)

Viele Grüße,
CK_CK
  Mit Zitat antworten Zitat