UniDirectional Movable Components

Richard Morris

Delphi Developer

Sun, 17 May 1998 03:00:00 GMT

UniDirectional Movable Components

G'day Christopher,

Put a panel with 3 pixel width/height between them, add a boolean
variable in your form, respond to the following events for the Frame;
OnMouseDown
Set the boolean flag
Set the cursor to SizeEW/SizeNS
OnMouseMove
if the flag is set
Move the component's origin (left/top)
Move the two List boxes appropriately
OnMouseUp.
Reset the flag
Reset the cursor
rgds,
RAM
KHIRON Software PTY LTD
Sydney, AUSTRALIA

Richard Morri

Delphi Developer

Sun, 17 May 1998 03:00:00 GMT

Re:UniDirectional Movable Components

G'day Christopher,

Put a panel with 3 pixel width/height between them, add a boolean
variable in your form, respond to the following events for the Frame;
OnMouseDown
Set the boolean flag
Set the cursor to SizeEW/SizeNS
OnMouseMove
if the flag is set
Move the component's origin (left/top)
Move the two List boxes appropriately
OnMouseUp.
Reset the flag
Reset the cursor
rgds,
RAM
KHIRON Software PTY LTD
Sydney, AUSTRALIA

Other Threads

1. UniDirectional Movable Components

2. Movable dos windows

3. Movable separator?

4. Movable from anywhere...

5. Movable separator?

6. Movable boxes

7. Movable transparent forms?

8. Non-movable applications

9. Dumb question: Movable buttons

10. movable lines