como no he podido editar por una restriccion de 25 minutos en la edicion de mis mensjes lo pongo aqui.
mi objetivo es que si el usuario no arrastra por ejempl image1 a image4 que o bien :
no suma puntos o ,image1.visible :=false asi quedaria fuera de juego image1 o image1.enable:=true.
pero no me funciona ninguno como yo quiera
Esto esta fuera de mi alcance
:
es que guardes una estructura en memoria (array bidimensional) con lo que se incluye en cada casilla y compares esos valores, en lugar de las imágenes.
Código Delphi
[-]procedure TForm1.Image4DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if (Sender = image4 ) and (Source = image1) then
begin
inc(puntuacion);Coge los valores de x y , muestra coordenada en label2 como puntuacion
Accept := true;
Label2.Caption:=IntToStr(puntuacion);
end
else
accept:=false;
SIEMPRE PASA POR AQUI
SIEMPRE SE CUMPLE ESTA CONDICION
NO HACE NADA
end;