Automatisch in ein Edit-Feld reinspringen?

[gandime]

Hi,
ich möchte automatisch in ein Edit-Feld springen also sobald eine Funktion beendent ist geht das?

mfg

ps

[mkinzler]

In dem du den Focus auf den Edit verschiebst

[DocE]

z.B. mit

ActiveControl := MeinEdit; oder

MeinEdit.SetFocus; evtl. noch ein

MeinEdit.SelectAll; hinterher, wenn Du alles markieren willst beim reinspringen.

[gandime]

thx läuft super

[gandime]

hey es funktioniert doch nicht ganz so wie es soll in allen fällen
und zwar habe ich ein webbrowser wo eine seite aufgerufen wird und nach dem die fertig geladen ist springt sie automatisch in ein feld danach soll dann ed_captcha fokusiert werden was auch super funktioniert solange man es über einen butten macht aber sobald man es über KeyPress macht funktioniert es nicht mehr

so geht es dann nicht mehr:

Delphi-Quellcode:

prcedure doit;
begin
...
...
ActiveControl:=ed_captcha;
end;

procedure TForm1.ed_captchaKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    doit;