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))
