TEdit zeigt TextHint nicht an, wenn ReadOnly = True

[Der schöne Günther]

TextHint ist bei TEdit -Feldern eine nette Eigenschaft, dass man in einem Edit-Feld in grau einen Hinweis-Text einblendet, solange der Benutzer da noch nichts eingegeben hat.

Kann ich das TextHint trotzdem anzeigen lassen, auch wenn das Edit-Feld auf ReadOnly = True gesetzt ist?

[Uwe Raabe]

Ich fürchte, das wird nicht so einfach sein. Das Verhalten ist offenbar intern im Windows-Control so implementiert und lässt sich offenbar nicht ändern.

[himitsu]

Jupp, da wirst du leider das Edit ableiten müssen und den Text selbst malen (nur wenn ReadOnly und Text='', sonst einfach den Default-Painter lassen).
Es gibt bestimmt auch noch irgendwo Beiträge im Netz, wo jemand das Paint vom TEdit überschrieben hat, um "früher" ein ähnliches Verhalten zu implementieren.

Wenn der Text nicht selektier und kopierbar sein muß,
dann ein unsichtbares TPanel drumrum (BevelOuter=bvNone und auch Caption leer und/oder ShowCaption=False)
und am Ende Panel.Enabled=False anstatt Edit.ReadOnly=True.


Alternativ schauen, was passiert, wenn du einen VCL-Style nutzt (muß nicht für alles, ginge auch nur für dieses Control) ... dort im Style dieses Verhalten anpassen (müsste es dort ja was für diesen Fall geben).

[Der schöne Günther]

Danke, so kompliziert wollte ich es gar nicht machen.

Dann hat das Ding halt keinen TextHint. Oder, da es eh readonly ist, schreibe ich selbst Text rein und mache .Font.Color := TColors.Gray oder sowas 😉

[himitsu]

Statt ReadOnly und TextHint
einfach Disabled und (bissl dunkelgrauerer) Text.

[jaenicke]

Das ist als Eingabeaufforderung gedacht. Insofern ist es irreführend, wenn ein solcher Cue Banner da ist, man aber gar nichts eingeben kann. Daher wird das entsprechend dann nicht angezeigt.

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