Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-04-2012
maycampana maycampana is offline
Miembro
 
Registrado: ago 2010
Posts: 61
Poder: 14
maycampana Va por buen camino
problemas con evento OnMousseDown

Hola Amigos, tenía armado y funcionando la posibilidad de arrastrar y soltar desde un RxDBGrid a un ImageEnMView, lo quiero adaptar desde un DrawDBGrid al mismo ImageEnMview y no hay forma de que funcione. No creo que el componente no lo permita porque tiene el evento OnMousseDown disponible pero no se que pasa, que me falta para que funcione, alguna conexión que no me doy cuenta. Bueno si alguien sabe de esto, gracias por ayudarme. Saludos
Responder Con Cita
  #2  
Antiguo 12-04-2012
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Poder: 18
Chris Va por buen camino
Hola!

Podrías explicarte mejor lo que deseas hacer y el problema que estás teniendo. Además mencionas componentes que no son estándar. En este caso deberías de dar una descripción de ellos y/o proporcionar un enlace a su sitio web.

Saludos
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita
  #3  
Antiguo 12-04-2012
maycampana maycampana is offline
Miembro
 
Registrado: ago 2010
Posts: 61
Poder: 14
maycampana Va por buen camino
Evento OnMousseDown

Gracias Chris por responder, soy muy novata en Delphi, la verdad que ya lo solucioné gracias al foro, la verdad que hacía varios días que estaba renegando con lo mismo y no me había dado cuenta que sólo me faltaba poner la prop. DragMode en automático, ya anda. Perdoná la molestia y mil gracias por atender tan pronto.
Responder Con Cita
  #4  
Antiguo 10-05-2012
maycampana maycampana is offline
Miembro
 
Registrado: ago 2010
Posts: 61
Poder: 14
maycampana Va por buen camino
No funciona el evento OnMousseDown

Me alegré porque lo vi andando, pero no se que pasó que ya no funciona, el DragMode tiene que estar en dmManual no en Automatic.
Este es el código:
procedure Tdpersonales.ImageEnMView1DragOver(Sender, Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean);
begin
accept:=(source=DrawDBGrid1);
end;
Procedure Tdpersonales.DrawDBGrid1MousseDown(Sender: TObjects; Button: TMousseButton; Shift: TshiftState; X,Y : Integer);
begin
DrawDBGrid1.BeginDrag(false);
end;
procedure Tdpersonales.ImageEnMView1DragDrop(Sender, Source: TObject; X,Y: Integer);
begin
if source=DrawDBGrid1 then
begin
//aca todo el procedimiento que funciona bien

Bueno, lo que no anda es el moussedown, si alguien tiene idea de que puede ser que no me habilita el mousse para el arrastre, bienvenida su ayuda.
No puedo encontrar la falla a pesar de que en otra version de la aplicación funciona perfectamente, me tiene mal. MIL GRACIAS
end;
Responder Con Cita
  #5  
Antiguo 10-05-2012
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Poder: 23
maeyanes Va por buen camino
Hola...

Cuando publiques código fuente en Delphi, usa las etiquetas [delphi]:

[delphi]
begin
ProcedimientoAEjecutar;
Variable := 'hola mundo';
// ejemplo
end;
[/delphi]

lo que se mostrará en los foros así:

Código Delphi [-]
begin
  ProcedimientoAEjecutar;
  Variable := 'hola mundo';
  // ejemplo
end;


Saludos...
__________________
Lee la Guía de Estilo antes que cualquier cosa. - Twitter
Responder Con Cita
  #6  
Antiguo 10-05-2012
maycampana maycampana is offline
Miembro
 
Registrado: ago 2010
Posts: 61
Poder: 14
maycampana Va por buen camino
No funciona el evento OnMousseDown

OK, ahí va de nuevo

Código Delphi [-]
 
procedure Tdpersonales.ImageEnMView1DragOver(Sender, Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean);
begin
accept:=(source=DrawDBGrid1);
end;
Procedure Tdpersonales.DrawDBGrid1MousseDown(Sender: TObjects; Button: TMousseButton; Shift: TshiftState; X,Y : Integer);
begin
DrawDBGrid1.BeginDrag(false);
end;
procedure Tdpersonales.ImageEnMView1DragDrop(Sender, Source: TObject; X,Y: Integer);
begin
if source=DrawDBGrid1 then
begin
//aca todo el procedimiento que funciona bien
end;
Bueno, lo que no anda es el moussedown, si alguien tiene idea de que puede ser que no me habilita el mousse para el arrastre, bienvenida su ayuda.
No puedo encontrar la falla a pesar de que en otra version de la aplicación funciona perfectamente, me tiene mal. MIL GRACIAS

Última edición por marcoszorrilla fecha: 10-05-2012 a las 22:22:00.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problemas con ClientDataSet evento OnChange jmlifi Varios 2 30-10-2006 10:42:49
Llamar evento desde otro evento nachito_tuc OOP 1 23-08-2006 22:37:43
problemas con dbedit y evento Onpreskey yeison Cristman Varios 2 09-08-2006 10:15:40
Problemas con evento OnPaint martha1982js API de Windows 4 14-07-2006 18:02:02
Problemas con evento OnExit santi33a Varios 4 15-04-2006 14:30:50


La franja horaria es GMT +2. Ahora son las 11:45:22.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi