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)...