In das "OnPaint" eines TEdits einklinken

[MarcoWarm]

Hi Sharky,

also ich hab mal n bissl mit "deinen" Quellen rumgespielt. Und folgendes produziert. Die Methode hat jedoch einige Einschränkungen (siehe Kommentare) aber vielleicht ist es ein Denkanstoß

Delphi-Quellcode:

procedure TTUOEdit.CMEnter(var Message: TCMEnter);
begin
  inherited;
  self.Repaint;
end;

procedure TTUOEdit.CMExit(var Message: TCMExit);
begin
  inherited;
  self.Visible:=False;   //frag mich nicht, warum es nicht anders geht
  self.Visible:=True;    //aber ein einfaches repaint oder invalidate reicht nicht 
                         //zugegeben, ich hab der sache auch nur 10 Minuten gewidmet
end;

procedure TTUOEdit.WMPaint(var Message: TWMPaint);
begin
  inherited;
  if (self.Focused) then
    DrawControlRect((Self as TWinControl).Handle, clBlue);
end;

Die Methode geht nur wenn kein Manifest eingebunden wurde.