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; end;
...
Form1:
Código Delphi
[-]
...
begin
TForm2.ShowForm(False); ...
end;
Saludos