Leeres Eingabefeld mit Standardwert füllen

[Jean312]

Hallo nochmal,

muss doch noch einmal was in diesem Thread anfragen.

Das Setzen eines Defaultwertes, wenn das Eingabefeld leer ist, funktioniert wunderbar. Nun wollte ich das auch auf eine abgeleitete Combobox anwenden.

Das funktioniert fast. Die Komponente wird während der Laufzeit erzeugt, aber der gesetzte Defaultwert wird nicht angezeigt. Wenn ich dann aber mit der Maus über die Komponente gehe, dann wird der Defaultwert angezeigt.
Woran kann das liegen?

Code:

unit uComboBoxExt;

{$mode objfpc}{$H+}

interface

uses
  Classes, Windows, Messages, Controls, StdCtrls,Graphics;

type
  { TComboBoxExt }

  TComboBoxExt = Class(TComboBox)
  private
    FCTextHint:string;
    FRequired:boolean;
    procedure WMPaint(var Message: TWMPaint); message WM_Paint;
    procedure SetCTextHint(const Value:string);
  protected
    procedure WndProc(var Message:TMessage); override;
  public
    constructor Create(AOwner:TComponent);override;
    destructor Destroy; override;
    property CTextHint:string read FCTextHint write SetCTextHint;
    property Required:boolean read FRequired write FRequired Default False;
    procedure PaintRedFrame;
  end;

implementation

{ TComboBoxExt } 

...

procedure TComboBoxExt.WndProc(var Message: TMessage);
var
  R:TREct;
begin
  inherited WndProc(Message);
  if (Message.Msg = WM_PAINT) and (Text='') then begin
    Canvas.Font := Font;
    Canvas.Font.Color := clGray;
    R:= ClientRect;
    R.Left:=R.Left+5;
    R.Top:=R.Top+2;
    Canvas.TextRect(R,R.Left,R.Top,FCTextHint);
    Canvas.TextOut(R.Left,R.Top,FCTextHint);
  end;

  if (FRequired=True) and (Text='') then PaintRedFrame;

  with message do
    case Msg of
      WM_LButtonUp, WM_LButtonDown,
      WM_KeyDown, WM_KeyUp, WM_SetFocus, WM_KillFocus,
      CM_TextChanged:
        begin
          invalidate;
        end;
    end;
end;

...

Der rote Rahmen wird aber sofort gezeichnet, wenn das Feld leer ist. Aber halt die Textausgabe funktioniert nicht so richtig. Sie reagiert erst nur nach einem MouseMove, wobei der Defaultwert erst angezeigt wird, wenn die Maus die Komponente wieder verlassen hat. Wenn die Maus auf der Komponente ist, wird der Defaultwert auch nicht angezeigt.
Das soll aber nicht sein. Die Anzeige des Defaultwertes darf erst verschwinden, wenn Text<>'' ist.
Was mache ich falsch?