Hola dilferos,
Estoy haciendo un cuadro de un campeonato y necesito por ejemplo en semifinales pasar un ganador a la final, es de un TDBedit a otro. Lo he realizado asi:
Código Delphi
[-]
procedure Tfrmcombates.DBEdit3Click(Sender: TObject);
begin
DBEdit3.BeginDrag(true);
end;
procedure Tfrmcombates.DBEdit21DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
Accept := Source IS TDBEdit
end;
procedure Tfrmcombates.DBEdit21DragDrop(Sender, Source: TObject; X,
Y: Integer);
begin
end;
Esto me funciona. Pero mi pregunta es la siguiente. ¿ Como tengo otro TDBedit en la final del cuadro de semifinales de abajo, no quiero aceptar si el arrastar y soltar viene desde arriba y viceversa? No se si me he explicado bien.
Lo he intentado asi: Pero no me funciona: vamos que me sale error en el NOT
Código Delphi
[-]
procedure Tfrmcombates.DBEdit3Click(Sender: TObject);
begin
DBEdit3.BeginDrag(true);
end;
procedure Tfrmcombates.DBEdit21DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
If MQcuaparti2['numero'] = 1
Then Accept := Source IS TDBEdit
Else Accept := Source NOT IS TDBEdit;
end;
procedure Tfrmcombates.DBEdit21DragDrop(Sender, Source: TObject; X,
Y: Integer);
begin
end;
Muchas gracias.