Drag and Drop
Como faço pra deixar o usuário mexer nas labels e outros componentes num form, utilizando drag-and-drop?
Alterei a propriedade DragMode pra dmAutomatic mas num deu.
Alguém pode me dar uma idéia?? :D
Alterei a propriedade DragMode pra dmAutomatic mas num deu.
Alguém pode me dar uma idéia?? :D
Garibaldi
Curtidas 0
Respostas
4_olho
07/05/2003
O que você quer dizer com ´mexer nas labels e componentes´ ?
É só mudar de lugar ? Mudar as propriedades ? Mudar o conteúdo ? Mudar os eventos ?
É só mudar de lugar ? Mudar as propriedades ? Mudar o conteúdo ? Mudar os eventos ?
GOSTEI 0
Smaug_84
07/05/2003
Faça o seguinte
ReleaseCapture;
PostMessage (Label1.Handle, WM_SYSCOMMAND, $F012, 0) ;
isto ja deve deixar o usuario mexer nos componentes em tempo de run-time
faca o teste
$F001 -- ESQUERDA
$F002 -- DIREITA
$F003 -- SUPERIOR
$F004 -- SUPERIOR ESQUERDO
$F005 -- SUPERIOR DIREITO
$F006 -- INFERIOR
$F007 -- INFERIOR ESQUERDO
$F008 -- INFERIOR DIREITO
QUALQUE PARAMETRO ACIMA DE $F008 FAZ COM QUE O USUARIO PASSA MOVER O COMPONENTE
ESPERO TER AJUDADO
SEMAIS DELONGAS SMAUG
ReleaseCapture;
PostMessage (Label1.Handle, WM_SYSCOMMAND, $F012, 0) ;
isto ja deve deixar o usuario mexer nos componentes em tempo de run-time
faca o teste
$F001 -- ESQUERDA
$F002 -- DIREITA
$F003 -- SUPERIOR
$F004 -- SUPERIOR ESQUERDO
$F005 -- SUPERIOR DIREITO
$F006 -- INFERIOR
$F007 -- INFERIOR ESQUERDO
$F008 -- INFERIOR DIREITO
QUALQUE PARAMETRO ACIMA DE $F008 FAZ COM QUE O USUARIO PASSA MOVER O COMPONENTE
ESPERO TER AJUDADO
SEMAIS DELONGAS SMAUG
GOSTEI 0
Garibaldi
07/05/2003
Cara, brigadaum pela ajuda, vou testá-la agora. Mas pra entaum serve a propriedade DragMode = dmAutomatic se qdo tento carregar, no caso, um label, não funciona? Eu preciso fazer um programa em q o usuário possa carregar determinados componentes como nós fazemos no delphi :wink:
Valeu, vou testar agora.
t+
Valeu, vou testar agora.
t+
GOSTEI 0