Text einfügen + Focus bei Editfeld

[dominikkv]

hi
ich hab ein paar buttons und ein editfeld.
wenn ich auf einen button klicke soll ein text an der stelle in das edit eingefügt werden wo grad der cursor blinkt... außerdem soll dannach gleich wieder das editfeld den focus erhalten (und nicht der button)... wenn ich das mit edit.setFocus mache markiert er mir aber den gesamten text...

jemand ne idee?
mfg :stupid:

[hoika]

Hallo,

nach dem SetFocus
SelStart / SelLength (0) verwenden


Heiko

[dominikkv]

Zitat:

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;

[hoika]

Hallo,

übergib den Editor (Eingabe) als auch Parameter
und schon hast du eine allgemein funktionierende Lösung.


Heiko

[Lannes]

Hallo,

warum einfach, wenns auch umständlich geht :roll:

Im OI Edit.AutoSelect auf False setzen.

Delphi-Quellcode:

with Edit do
  begin
  Seltext := 'irgendwas';
  SetFocus;
  end;