Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Arrastrar y soltar componente Encontrar ramas similares


avr555   (2001-12-17 19:54) [0]

Mi pregunta es:
Quiero hacer un componente que pueda ser "arrastrado" en forma.
Como tal componente decidió usar VirtualTreeView
Uso tres eventos para arrastrar: OnMouseDown, OnMouseMove, OnMouseUp.

Cuando usé CheckListBox como un componente que se puede arrastrar, para que el componente no falle, llamé a la función SetCapture (self.Handle) y todo funcionó.
Y cuando se cambia a VirtualTreeView después de llamar a SetCapture (self.Handle), el componente deja de moverse. Si no llama a SetCapture (self.Handle), entonces todo funciona, solo el componente se "suelta" del puntero cuando arrastra.

¿Qué hacer?



DK   (2001-12-19 02:16) [1]

Intente insertarlo en el controlador OnMouseDown:
var
Control: TControl;
begin
try
Control := Sender as TControl;
ReleaseCapture;
Control.Perform(WM_SYSCOMMAND, $F012, 0);
finally
end;

fin;



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.54 MB
Tiempo: 0.02 c
1-22224
Oleg Gashev
2001-12-15 11:14
2002.01.08
Problema con el tamaño de la imagen al imprimir.


4-22507
Slaviq
2001-11-06 17:55
2002.01.08
Iconos del sistema


1-22174
chva
2001-12-21 00:50
2002.01.08
Pausa en el trabajo


3-21984
Señor Andres
2001-12-05 20:39
2002.01.08
Actualización de datos


1-22241
Yuraz
2001-12-17 10:09
2002.01.08
FileListBox1.FileName devuelve la ruta completa al archivo, ¿cómo hacer que devuelva solo el nombre del archivo?





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español