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.