Wie Texthint im TDBEdit anzeigen?

[BlueStarHH]

Hi,

ein ich möchte in einem TDBEdit ein Texthint anzeigen. Und zwar so wie in einem TEdit. Im TEdit gibt es die Eigenschaft Texthint. Diese gibt es in einem TDBEdit jedoch nicht. Daher habe ich in einem ButtonClick es wie folgt probiert:

Code:

SendTextMessage(MyDBedit.Handle, EM_SETCUEBANNER, WPARAM(0), 'DerTextHier');

Das funktioniert fast: Man muss ein mal ins DBEdit klicken, damit der Text nach dem Verlassen des DBEdits angezeigt wird. Der Text soll aber sofort, genau wie im TEdit zu sehen sein. Ein MyDBedit.invalidate hat keinen Effekt.

[himitsu]

Das Problem liegt darin begründet, dass TDBEdit "oftmals" seinen Inhalt selber zeichnet.

Dort wird nicht der TextHint gezeichnet, da TDBEdit das nicht kennt und es dort keiner eingebaut hat.
(der, welcher TextHint im TEdit einbaute, hatte wohl keine Lust das im TDBEdit zu machen oder hat es vergessen, vor sehr vielen Jahren)

Also wird es nur vom EDIT im Windows gezeichnet, wenn man Windows das Zeichnen überlässt.
Siehe TDBEdit.WMPaint , vorallem das erste große IF, mit dem inherited drin.