Ver Mensaje Individual
  #3  
Antiguo 25-06-2008
Avatar de xEsk
[xEsk] xEsk is offline
Miembro Premium
 
Registrado: feb 2006
Posts: 454
Reputación: 19
xEsk Va por buen camino
Hola, te he escrito este ejemplo que puedes adaptar a tus necesidades.

En mi ejemplo uso un TButton, y al clicar encima de este TButton se muestra una ventana justo por encima del TButton, sin dejar que se oculte este.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  NewForm: TForm;

begin
  NewForm:=TForm.Create(self);
  try
    // le decimos que queremos nuestra propia posicion
    NewForm.Position:=poDesigned;
    // movemos el nuevo Form por encima del TButton (para que no lo oculte)
    NewForm.Top:=Top + Button1.Top - NewForm.ClientHeight - 5;
    // centramos la ventanta respecto al TButton
    NewForm.Left:=Left + Button1.Left - (NewForm.Width div 2 - Button1.Width div 2);
    // mostramos la ventana
    NewForm.ShowModal;
  finally
    NewForm.Free;
  end;
end;

Este ejemplo, es más que nada para que veas la idea del asunto...

Saludos.

Edito: Vaya, veo que Roman se me ha adelantado por segundos xD
Responder Con Cita