Crear un Shape en Runtime

[hackcgm]

Empezado por roman

A mi me ha funcionado tu código así que supongo que lo que sucede es que el objeto que creas no lo ves porque queda oculto por el panel. Donde dice

Parent := Self;

creo que querías decir

Parent := Panel1;

// Saludos

hola a todos, tengo una duda, como tambien estoy creando shapes en tiempo de ejecusion pero quiero implenetar este evento pero me marca error :

circulos.OnMouseDown:= circulosMouseDown('no se q parametros van a qui')

espero me puedan orientar, gracias

[[escafandra]]

Empezado por hackcgm

circulos.OnMouseDown:= circulosMouseDown('no se q parametros van a qui')

Ninguno. Para asignar un evento lo que haces es asignar la función que maneja el evento. Para ello esa función debe existir:

Código Delphi [-]
procedure TForm1.circulosMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  //...........................
end;

//..............
circulos.OnMouseDown:= circulosMouseDown;
//.............

Saludos.

[hackcgm]

gracias, si me funciono, muchas gracias