Solved

non-movable forms

Posted on 1998-04-27
2
224 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

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

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…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
This video discusses moving either the default database or any database to a new volume.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

758 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

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now