Edit-Text markieren (nix funzt!)

[Cöster]

Ich hab ne Möglichkeit gefunden. Sie ist zwar umständlich, aber sie funzt endlich.

Delphi-Quellcode:

  private
    FocusedEdit: TEdit;
    TabUsed: Boolean;

{...}

procedure TForm1.EditExit(Sender: TObject);
begin
  FocusedEdit := nil;
end;

procedure TForm1.EditEnter(Sender: TObject);
begin
  If TEdit(Sender).SelText = TEdit(Sender).Text then
    TabUsed := True
  else
    TabUsed := False;
end;

procedure TForm1.EditMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (FocusedEdit <> TEdit(Sender)) and not TabUsed then
    TEdit(Sender).SelectAll;
  FocusedEdit := TEdit(Sender);
end;