Problem mit von CustomEdit abgeleiteten Eingabefeld

[Luckie]

Delphi-Quellcode:

procedure TMUH_Edit.Paint;
var
  Points                 : array[0..8] of TPoint;
  rec: TRect;
begin
  FCanvas.Brush.Color := Bckrnd;
  FCanvas.Rectangle(Rect(0, 0, Width, Height));
  FCanvas.Brush.Color := BorderCol;
  FCanvas.FrameRect(Rect(0, 0, Width, Height));
  FCanvas.Pen.Color := BorderCol2;
  FCanvas.MoveTo(1, Height - 2);
  FCanvas.LineTo(1, 1);
  FCanvas.LineTo(Width - 1, 1);
  rec := FCanvas.ClipRect;
  DrawText(FCanvas.Handle, PChar(Text), length(Text), rec, DT_VCENTER or DT_SINGLELINE);

Minimier das Fenster mal und maximier es wieder, dann siehst du das Problem: Es wird nicht neu gezeichnet bei der Texteingabe. Und ich würde dir empfehlen den Text zum Schluss auszugeben und nicht wieder drüber zu pinseln.
FCanvas.FillRect(Rect(0,0,Width,Height))