Ver Mensaje Individual
  #3  
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
Grande Neftali muchas gracias pero ahora tengo otro problema ,
El Tema es que estoy intentando hacer un juego, Si el usuario ha pasado la image1 a image4 entonces
la puntuación suma 1 , si no no aumanta, bien lo mas lógico para mi seria un botón con un evento onclick algo así:

var
Form1: TForm1;
puntuacion : integer;


procedure TForm1.FormCreate(Sender: TObject);
begin
puntuacion:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Image1.Picture=Image4.Picture then
inc(puntuacion);
Label2.Caption:=IntToStr(puntuacion);
end;

pero por algun motivo no incrementa puntuación . No se si es porque no compara la imagen nueva en image4 que fue arrastrado de image1 . o otra cosa pero ya estoy mareado de mirar el código y hacer pruebas

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);
Accept := true;
Label2.Caption:=IntToStr(puntuacion);
{ShowMessage('muy bien');}
end
else
accept:=false;
{ ShowMessage('muy mal');}
end;
Este ejemplo tampoco funciona por alguna razon puntuacion coge el valor de la coordenada x y
y en label2 muestra la coordenda x ,y .

y en el showmessage siempre sale muy mal.

ya habreis notado que acabo de empezar en el tema de programacion.

Última edición por Piter_1 fecha: 27-12-2016 a las 17:50:37.
Responder Con Cita