TEdit zeigt TextHint nicht an, wenn ReadOnly = True

[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;