Board index » delphi » UniDirectional Movable Components

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

 

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