Solved

non-movable forms

Posted on 1998-04-27
2
230 Views
Last Modified: 2010-04-06
How to make a form that has title bar, but that is not movable by user
0
Comment
Question by:bor061297
  • 2
2 Comments
 
LVL 1

Accepted Solution

by:
Edo082297 earned 50 total points
ID: 1337746
type
  TForm1 = class(TForm)
  private
    procedure WMMove(var MSG: Tmessage); message WM_MOVE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMMOVE(var MSG: TMessage);
begin
  Abort;
end;

Regards,
Edo

0
 
LVL 1

Expert Comment

by:Edo082297
ID: 1337747
Hi Bor,
   I suppose I should comment on what is going on. All that is happening is that your form is intercepting the windows message, and then issuing the Abort command, so that the message does not proceed, and the move is not performed.

Edo
0

Featured Post

PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question