Soltar y arrastrar no aceptar - Foros Club Delphi

27-03-2015

ecfisa

Moderador

Registrado: dic 2005

Ubicación: Tres Arroyos, Argentina

Posts: 10.508

Poder: 36

Hola emeritos.

La verdad es que no entiendo el planteo, pero mirando el código, creo que deseas que se acepte cuando Source es un TDBEdit y el valor de MQcuaparti2['numero'] sea igual a 1.

Eso sería:

Código Delphi [-]procedure Tfrmcombates.DBEdit21DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
   Accept:= Source.ClassNameIs('TDBEdit') and (MQcuaparti2['numero'] = 1); 
end;

Saludos

__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

« Tema Anterior | Próximo Tema »

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
Arrastrar y Soltar	Panasys	OOP	7	11-08-2011 00:03:26
Arrastrar y soltar en un TreeView...	User_baja1	Varios	1	18-04-2005 13:39:50
Arrastrar y soltar con DBGrids	NickName	Varios	2	22-03-2005 02:20:03
Arrastrar y Soltar!!!	chechu	Varios	6	21-10-2004 20:26:35
arrastrar y soltar imagen	haZe	Varios	2	03-03-2004 17:06:10

La franja horaria es GMT +2. Ahora son las 06:42:01.