Delphi - Versteckte Tastatureingaben

[HuxXx]

Zitat von DenSchub:

1. Ich hab ein Edit reingemacht.
2. Das edit habe ich dann mit edit1.visible := true; unsichtbar gemacht und dann den Fokus draufgemacht.

Du hast die Edit wohl mit "Edit1.Visible:=false;" unsichtbar gemacht, das was du hingeschrieben hast, macht es wieder sichtbar.
Und eine unsichtbare Komponente kann den Focus nicht bekommen.

Also so würde ich es machen:

Delphi-Quellcode:

var text:String='Das_Wort';
var akt_pos:Integer=1;

procedure TFormMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = ord(text[akt_pos]) then begin
    akt_pos:= akt_pos+1;

// Wort ist vollständig eingegeben worden
if akt_pos = length(text) then begin
ShowMessage('Hier deine Funktion');
end;
////////

end else begin         // Falsch eingegeben, nochmal von Anfang...
akt_pos:=1;
end;

end;

Nicht sicher, ob das stimmt. (Kein Delphi zur Hand)...