Panels

[nunez_mvp]

Hola a todos.

Estoy haciendo una simulación de un ASCENSOR, para ello utilizo paneles y con su propiedad top puedo subir y bajar a los diferentes niveles sin problemas. Ahora bien, necesito introducir algún objeto dentro del ascensor. Para esta parte estoy pensando utilizar BUTTONS. Lo que en realidad necesito es insertar los botones en el panel (ASCENSOR), de manera que al subir el ascensor tambien suban los botones.

NOTA: los botones se encontrarán en los diferentes niveles, de manera que al darle click sobre los botones estos deberían entrar al panel (ASCENSOR) .


Espero haberme explicado bien y ojala puedan ayudarme. Gracias...........

[roman]

Tienes que asignar el panel a la propiedad Parent del botón:

Código Delphi [-]
Button1.Parent := Panel;

Si después deseas sacar al botón del ascensor, bastará que reasignes su Parent al formulario.

Código Delphi [-]
Button1.Parent := Self;

// Saludos

[*Caro*]

Hola nunez_mvp, solo le cambias el Parent y le das una posición a tu Button.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 Button1.Parent := Panel1;
 Button1.Top := 10;
 Button1.Left := 10;
end;

Saluditos

[nunez_mvp]

Hola nueva vez.

Esta vez es para agradecerles por su ayuda. Ah, se me pasó algo ahorita. Y es que les iba a preguntar para saber sobre como le haría para que cuando el ascensor llegue a un piso emita un sonido o un tono, algo así jeje.

Gracias........

[*Caro*]

Hola de nuevo nunez_mvp.

Código Delphi [-]
 if LlegoAlFinal then
  Beep;

Saluditos

[nunez_mvp]

Muchisimas gracias

Era algo bien sencillo no?. Jejeje

Nos vemos luego. Gracias por sus atenciones.

[roman]

También podrías usar un sonido más personalizado:

Código Delphi [-]
uses
  mmsystem;

...

begin
  PlaySound(PChar('ding.wav'), 0, SND_ASYNC);
end;

// Saludos