🚀 go-pugleaf

Hi Ted. First, put your WindowState to maximize and then try:
...
  private
    { Private declarations }
  Done : Boolean;
  Procedure WMWindowPosChanging(Var Msg: TWMWindowPosChanging); Message
WM_WindowPosChanging;
...
procedure TForm1.FormActivate(Sender: TObject);
begin
Done := True;
end;
...
Procedure TForm1.WMWindowPosChanging;
Begin
If Done Then
  Msg.WindowPos^.Flags := Msg.WindowPos^.Flags or SWP_NOMOVE or SWP_NOSIZE;
End;


Hope this helps

\Francois


> Hello,
>
> In Delphi, how can I make a Window
>
> - run in full screen mode
> - no resizing
> - cannot be moved ?
>
> I have tried to set
>
>   WindowState=maximize
>
> However the window will still be "restored" to a "normal" Window when double
> click on the Window Title. Once it is a normal window,  the user can move the
> Window around by using the mouse cursor.
>
> Any suggestion will be very appreciated.
>
> Thanks
>
> Ted.
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/   Now offering spam-free web-based newsreading