Formular hervorheben durch Rahmen

[shmia]

Du musst auf die Windows Message WM_NCPAINT sowie WM_NCACTIVATE reagieren.

Delphi-Quellcode:

...
  protected
    procedure WMNCPaint(var Msg: TWMNCPaint) ; message WM_NCPAINT;
    procedure WMNCACTIVATE(var Msg: TWMNCActivate) ; message WM_NCACTIVATE;
...

procedure TForm1.WMNCACTIVATE(var Msg: TWMNCActivate);
begin
   inherited;  // evtl. weglassen und dann aber alles selbst zeichen
   DrawFrame;
end;

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
begin
   inherited;  // evtl. weglassen und dann aber alles selbst zeichen
   DrawFrame;
end;