FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Crear un Shape en Runtime
Hola a todos,
Estoy intentando crear un Shape en tiempo de ejecución, pero no sé por qué no me lo hace. Con TButton sí que lo consigo fácilmente. El código que he hecho es el siguiente: procedure TForm1.CreateShape; var AShape: TShape; begin AShape:= TShape.Create(Panel1); try with AShape do begin Parent:= Self; Left:= Random(Form1.ClientWidth-Width); Top:= Random(Form1.ClientHeight-Height); Brush.Color:= clWhite; Brush.Style:= bsSolid; Pen.Color:= clBlack; Pen.Mode:= pmCopy; Pen.Style:= psSolid; Pen.Width:= 1; end; except AShape.Free; end; end; gracias por adelantado, David |
#2
|
||||
|
||||
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 |
#3
|
|||
|
|||
Cita:
circulos.OnMouseDown:= circulosMouseDown('no se q parametros van a qui') espero me puedan orientar, gracias |
#4
|
||||
|
||||
Ninguno. Para asignar un evento lo que haces es asignar la función que maneja el evento. Para ello esa función debe existir:
Saludos. |
#5
|
|||
|
|||
gracias, si me funciono, muchas gracias
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|