Ver Mensaje Individual
  #7  
Antiguo 31-07-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Otra opción:

Form2: (El que contiene el TButton a ocultar)
Código Delphi [-]
...
type
  TForm2 = class(TForm)
    Button1: TButton;
  private
  public
    class procedure ShowForm(const aVisible: Boolean);
  end;
....

implementation

class procedure TForm2.ShowForm(const aVisible: Boolean);
begin
  if not Assigned(Form2) then
    Form2 := TForm2.Create(nil);
  Form2.Button1.Visible := aVisible;
  Form2.ShowModal; // (o Show)
end;
...


Form1:
Código Delphi [-]
...
begin
  TForm2.ShowForm(False);  // (True para visualizar)
  ...
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita