OnEnter und markieren

[Privateer3000]

Hi Leutz,

wie bekommt man das hin wenn ein Edit-feld den Fokus erhält der Inhalt komplett markiert wird, um die Neueingabe zu erleichtern??

Schönes WoE!

[Luckie]

Also, wenn ich mit TAB ins nächste Edit gehe, ist schon automatisch alles markiert.

[Privateer3000]

ja klar, aber wenn Benutzer von Edit1 zu Edit17 will ist es a bissrl umständlich.

[Alexander]

Wie soll er denn sonst ins Edit kommen?
Mit der Maus z.b. wird es doch auch gleich markiert.
Sonst gibt es doch auch noch das Ereignis onfocus, mit dem du dann den Text markieren kanns, wenn das edit den Focus erhält.

[Luckie]

OnFocus gibt es nicht, nur OnEnter, aber da funktioniert das:

Delphi-Quellcode:

procedure TForm1.Edit2Enter(Sender: TObject);
begin
  Edit2.SelStart := 0;
  Edit2.SelLength := length(Edit2.Text);
end;

irgendwie nicht.

Code:

Edit2.SelectALL;

geht auch irgendwie nicht.

Und wenn du mit der Maus reinklickst wird nicht alles automatisch markiert, nur wenn du mit TAB in das Edit kommst.

Aber das geht:

Delphi-Quellcode:

procedure TForm1.Edit2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit2.SelectAll;
end;

Nur wird es dann etwas kompliziert, wenn man den Cursor mit der Maus plazieren will. SDo wie es jetzt ist, sogar unmöglich für den Benutzer.

[nailor]

notfalls die routine aussetzten wenn, strg gedrückt