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.