TEdit komplett markieren bei Mausklick

[ralfiii]

Hallo!

Ich hätte gerne, dass ein TEdit-Feld erstmal alles markiert wenn der User draufclickt.
(So dass man drauflosschreiben kann um den Inhalt zu überschreiben und nicht erst alles markieren muss)

Erst wenn das Edit schon den Fokus hat und mann nochmal klickt soll nur der Mauscursor zu sehen sein.
(so verhält sich z.B. die Addressleiste beim Firefox)

Wie mach ist das? (SelectAll in OnEnter aufrufen tut's beispielsweise nicht)

Danke!
Ralf

[lbccaleb]

Delphi-Quellcode:

SendMessage(Edit1.handle, EM_SETSEL, 0, -1);

Hoffe das hilft??

[toms]

Delphi-Quellcode:

procedure TForm1.Edit1Click(Sender: TObject);
begin
 with (Sender as TEdit) do
 begin
   if Tag = 0 then
   begin
     Perform(EM_SETSEL, 0, -1);
     Tag := 1;
   end;
 end;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  (Sender as TEdit).Tag :=  0;
end;

[ralfiii]

Danke!

Ein

Delphi-Quellcode:

     PostMessage(Edit1.handle, EM_SETSEL, 0, -1);

in den OnEnter-Event uns alles ist gut.

[himitsu]

Wie wäre es einfach mit .AutoSelect auf True setzen und alles is Gut? :stupid:

[API]

Zitat:

Zitat von himitsu

Wie wäre es einfach mit .AutoSelect auf True setzen und alles is Gut? :stupid:

Zitat:

Zitat von ralfiii

Ich hätte gerne, dass ein TEdit-Feld erstmal alles markiert wenn der User draufclickt.

Geht das bei dir tatsächlich?

[himitsu]

es wird alles markiert, sobald das Edit den Focus bekommt und bei einem weiteren Klicken passiert nichts mehr,
also genauso wie er es möchte

Zitat:

Zitat von ralfiii

Hallo!

Ich hätte gerne, dass ein TEdit-Feld erstmal alles markiert wenn der User draufclickt.
(So dass man drauflosschreiben kann um den Inhalt zu überschreiben und nicht erst alles markieren muss)

Erst wenn das Edit schon den Fokus hat und mann nochmal klickt soll nur der Mauscursor zu sehen sein.
(so verhält sich z.B. die Addressleiste beim Firefox)

Wie mach ist das? (SelectAll in OnEnter aufrufen tut's beispielsweise nicht)

Danke!
Ralf

[ts230]

Delphi-Quellcode:

Edit1.SelectAll;

[Michael Habbe]

Es gibt noch 'ne Möglichkeit:

Delphi-Quellcode:

procedure btnXYClick(Sender: TObject);
begin
  edt.SetFocus;
  edt.SelStart := 0;
  edt.SelLength := Length(edt.Text);
end;

Ich weiss nicht, obs auch mit OnEnter klappt. Ausprobieren.
btnXY ist bei mir ein Defaultbutton.

Könnte aber sein, dass auch dieses nicht beim Klick funktioniert.
Ich vermute, dass die Reihenfolge der Ereignisse erst den OnFocus auslöst und dann das Klick den Focus an die Position der Maus setzt und damit die Selektion aufhebt.

Dann könntest Du aber das OnClick-Ereignis mal testen, obs in der Routine funktioniert.

[TonyR]

Also bei meinen Edits, die ich hier produzieren kann, ist AUTOSELECT:=true STANDARD!

Und dabei wird im Edit zwar beim Enterereignis über Tastatur alles markiert, bei der Maus wird bei einfach Klick nichts markiert, bei Doppelklick funktioniert das dann erst wieder.

Somit ist der allererste Vorschlag wohl am effizientesten.