Ver Mensaje Individual
  #6  
Antiguo 27-12-2016
Piter_1 Piter_1 is offline
Registrado
NULL
 
Registrado: dic 2016
Posts: 4
Reputación: 0
Piter_1 Va por buen camino
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);
{ShowMessage('muy bien');}
end
else
accept:=false;
{ ShowMessage('muy mal');}   SIEMPRE PASA POR AQUI 
{image1.visble:=false ;} SIEMPRE SE CUMPLE ESTA CONDICION
{image1.enable:=false;}NO HACE NADA

end;
Responder Con Cita