Text einfügen + Focus bei Editfeld

[dominikkv]

Zitat von hoika:

Hallo,

nach dem SetFocus
SelStart / SelLength (0) verwenden


Heiko

danke...
ich habs jetzt geschafft:

Delphi-Quellcode:

procedure InsText(s: String);
var
   t: String;
   n: Byte;
begin
  with Form1.Eingabe do
    begin
      t := Text;
      n := SelStart;
      if n=0 then
        Text := Text + s else
          begin
            Insert(s, t, n+1);
            Text := t;
          end;
      SetFocus;
      SelLength := 0;
      SelStart := n+length(s);
    end;
end;