In das "OnPaint" eines TEdits einklinken

[Sharky]

Hai ihr,

bei meiner letzen Frage hat Bernhard mir ja den Tipp gegeben mich in das OnPaint des TEdits einzuklinken.

Jetzt gibt es das aber dort nicht. Wenn ich versuche mich so in die Paint-Message inzuhängen wird diese natürlich durch das Zeichnen meines Rahmens immer wieder ausgelösst.

Delphi-Quellcode:

procedure TShExEdit.WMPaint(var Message: TWMPaint);
begin
  inherited;
  FUpdateColor; // Hier wird ein Rahmen gezeichnet
end;

Wie muss ich denn da ansetzen um mir im Paint des TEdits einen Rahmen um diesen zu zeichnen?

[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.

[Sharky]

Hai Marco,

danke für den Tipp. Jetzt scheint alles so zu laufen wie ich es möchte.

Ich habe dein Visible True/False durch diesen Code ersetzt ung es geht:

Delphi-Quellcode:

procedure TShExTntEdit.DoExit;
begin
  inherited DoExit;
  Inherited Perform(CM_RECREATEWND, 0, 0);
end;

[MarcoWarm]

CM_RECREATEWND .... wunderbar... danach hatte ich gesucht :)