Cita:
Empezado por Alejo15x
Buenas!
Veran, tengo un form el cual no tiene la barra de dialogo, la que trae los botones de "cerrar, minimizar, maximizar" etc...Esa barra en sima de todas las ventanas...La tengo en none. Bueno, adentro tengo una "TPicture", en la cual nesecito que cuando el usuario le de click, le permita arrastrar el form por la pantalla, como si fuera la barra.
Me entendeis?, Por favor! Os estare muy agradecido!
|
Disculpa pero no se entiende con claridad que tipo de Componente tienes en tu Formulario, tú hablas de un TPicture
..hummm quisas sea mas bien un TImage...Pero de todas formas sea cual sea el componentes que tengas, puedes usar el evento
OnMouseMove del componente en cuestion y poner este codigo dentro:
Código Delphi
[-]procedure TForm1.MyComponetMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ReleaseCapture;
SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0);
end;
.
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7