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;