Ver Mensaje Individual
  #12  
Antiguo 09-11-2005
mifiar mifiar is offline
Registrado
 
Registrado: nov 2005
Posts: 9
Reputación: 0
mifiar Va por buen camino
Hola, gracias por sus respuestas, he estado revisando con detenimiento cada una de las ideas expuestas, pero no alcanzo a comprenderlas del todo ya que soy relativamente nuevo en esto, además de que se me dificulta algo , pero la lucha le hago , si pudieran explicarme las ideas aún mas detalladas se los agradecería . En lo que respecta a las ideas que tenía para realizar este programa se me atraviesa un inconveniente; les expongo la idea:

Código:
 pv:=0;
  ph:=0;
  
  
  	for a := 0 to 5 do
  	begin
  	  for b := 0 to 4 do
  	  begin
  		Imagenes[a,b]:=TShape.Create(Self);
  		Imagenes[a,b].Parent := Form1;
  		Imagenes[a,b].Left := ph+10;
  		Imagenes[a,b].Top := pv+10;
  		Imagenes[a,b].height := 7;
  		Imagenes[a,b].width := 7;
  		Imagenes[a,b].Shape := stCircle;
  		Imagenes[a,b].OnMouseDown:= CirclesMouseDown;
  		Imagenes[a,b].OnMouseMove:= CirclesMouseMove;
  		pv:=pv+50;
  		  if b=4 then
  		  begin
  		  pv:=0;
  		  end;
  	  end;
  	  ph:=ph+50;
  	end;
Es para crear la cuadrícula; lo que sucede es que no se como hacer referencia a un elemento en particular, dado que son creados en tiempo de ejecución. Tambien realicé un evento OnMouseDown y se lo asigné a cada uno de los puntos (o pequeños circulos) de la cuadrícula, con el objetivo de obtener la posicion que ocupan dentro de la forma, pero esa posicion la toma con relacion al objeto creado y no a la forma; conocen alguna manera de hacer que tome la posicion con respecto a la forma ? Se siguen aceptando sugerencias , gracias.
Responder Con Cita