Auf das Form:
1x TButton
1x TEdit
1x TLabel
Der Button dient als Dummy für den Focus.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := '';
Edit1.Text := '';
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Button1.SetFocus;
end;
procedure TForm1.Edit1Enter(Sender: TObject);
begin
if Label1.Caption = '' then Eingabe;
end;
procedure TForm1.Eingabe;
var
Value : String;
begin
if InputQuery('Caption', 'Prompt', Value) then
begin
if trim(Value) <> '' then
begin
Label1.Caption := Value;
Button1.SetFocus; // Kommentar 1*)
Edit1.SetFocus;
end;
end;
end;
Ich wechsel einmal den Focus und kann weiter in das TEdit Feld eingeben, der Cursor wird dabei nicht angezeigt.
1*) = kommentiere ich die Zeile aus, so erscheint der Cursor in dem Eingabefeld aber eine Eingabe ist (ohne einen erneuten Klick ins Feld) nicht möglich.
Frage: Wie bekommen ich den blinkenden Cursor in das aktuelle Eingabefeld & kann auch was eingeben ?