Re: Moving components around

Article View: comp.lang.pascal.delphi.components.usage

Article #18

Back to comp.lang.pascal.delphi.components.usage Previous Next

#18

From: Guido Geurts
Date: Thu, 19 Nov 1998 00:00

21 lines
1806 bytes

Here is the short way to do this


procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;  { a magic number }
begin
  ReleaseCapture;
  panel1.perform(WM_SysCommand, SC_DragMove, 0);
end;



Zimba schreef:

> please I want to be able create components at runtime as my codes below
> show but I would like to be able to move them to desired positions. Does
> anyone know how I can move them around? Right now I can only create them
> with the codes below below I cannot move them around.
>

Technical Details

Message-ID: <36549E61.CFB8C6C2@village.uunet.be>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <36507ECC.2BD4BC5E@bellsouth.net>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 108890,ad7d8cb1fb4c02ee
X-Google-Attributes: gid108890,public
X-Google-Thread: fb0ea,ad7d8cb1fb4c02ee
X-Google-Attributes: gidfb0ea,public
X-Google-Thread: f973b,ad7d8cb1fb4c02ee
X-Google-Attributes: gidf973b,public
X-Google-Thread: 109d99,ad7d8cb1fb4c02ee
X-Google-Attributes: gid109d99,public
X-Google-Thread: 112b07,ad7d8cb1fb4c02ee
X-Google-Attributes: gid112b07,public
X-Google-Thread: fe2ce,ad7d8cb1fb4c02ee
X-Google-Attributes: gidfe2ce,public
From: Guido Geurts <GuidoG@village.uunet.be>
Subject: Re: Moving components around
Date: 1998/11/19
Message-ID: <36549E61.CFB8C6C2@village.uunet.be>
X-Deja-AN: 413659321
Content-Transfer-Encoding: 7bit
References: <36507ECC.2BD4BC5E@bellsouth.net>
To: Zimba <kennaa@bellsouth.net>
Content-Type: text/plain; charset=us-ascii
Organization: UUNET Benelux (post does not reflect views of UUNET Benelux)
Mime-Version: 1.0
Newsgroups: comp.lang.pascal.delphi.components.usage,comp.lang.pascal.delphi.components.writing,comp.lang.pascal.delphi.components.misc,comp.lang.pascal.delphi.components,borland.public.delphi.vcl.components.using,borland.public.delphi.vcl.components.writing

Reply to Parent Message