Edit-Text markieren (nix funzt!)

[Helmi]

Meinst du das:

Delphi-Quellcode:

procedure TForm1.Edit1Click(Sender: TObject);
begin
  with Edit1 do
    begin
      If Focused then
        SelStart := 0
      else
        SelectAll;
    end;
end;

Wird dem Edit der Focus durch das "reinspringen" mit der Tabtaste gegeben, dann wird markiert. Wird danach reingeklickt, wird der Cursor an den Anfang des Textes gesetzt und dadurch die Markierung aufgehoben.

[edit]
hab das noch etwas erweitert, weil man sonst doppelklicken müsste, wenn man direkt reinklickt.

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    Edit_Focus: Boolean;

{ ... }

procedure TForm1.Edit1Click(Sender: TObject);
begin
  with Edit1 do
    begin
      If Focused and not Edit_Focus then
        begin
          SelStart    := 0;
          Edit_Focus  := true;
        end
      else
        begin
          SelectAll;
        end;
    end;
end;

Vielleicht noch im OnCreate der Form die Variable "Edit_Focus" auf false setzen