TEdit zeigt TextHint nicht an, wenn ReadOnly = True

[TomyN]

Ein Hinweis wie 'Aktuelle keine Eingabe möglich, da der Hund noch nicht gefüttert wurde' könnte aber durchaus für den Nutzer hilfreich sein.

[himitsu]

Aber es nervt auch, wenn man reingeklickt hat, nicht mehr weiß, was man eintippen soll und dann erstmal wieder raus muß, um es lesen zu können.
Ist ja fast so schlimm, wie wenn die ListBox die Markierung nicht mehr zeigt, wenn der Fokus raus ist.

[Uwe Raabe]

Zitat von himitsu:

Aber es nervt auch, wenn man reingeklickt hat, nicht mehr weiß, was man eintippen soll und dann erstmal wieder raus muß, um es lesen zu können.

Aber dem kann man ja abhelfen:

Delphi-Quellcode:

type
  TEdit = class(Vcl.StdCtrls.TEdit)
  protected
    procedure DoSetTextHint(const Value: string); override;
  end;

procedure TEdit.DoSetTextHint(const Value: string);
begin
  if CheckWin32Version(5, 1) and StyleServices(Self).Enabled and HandleAllocated then
    SendTextMessage(Handle, EM_SETCUEBANNER, WPARAM(1), Value);
end;