Ocultar botones distintos form

[The Cid James]

Empezado por ecfisa

Hola.

Te adjunto un ejemplo para que puedas revisarlo con tranquilidad.

Saludos

Muchas gracias revise el ejemplo y vi que tiene un check box para que el boton se vea yo lo que ando buscando es que si abro el form1 el boton no se muestre, pero si doy clic al boton desde el form2 al abrir el form1 si se muestre pero sin seleccionar nada (que sea automatico)
aqui dejo el boton que llama al form 1 (listadoitems)

Código Delphi [-]
procedure Tfdonacion.cBuscarClick(Sender: TObject);
begin
  fmodulo.qlistadoitems.Active := true;
  fmodulo.qlistadoitem.ParamByName('categoria').AsString := '%';
  fmodulo.qlistadoitem.Refresh;
  tfListadoitem.Create(self).ShowModal;

desde ese botón abro el formulario donde tengo la lista, donde este el botón seleccionar para seleccionar desde el dbgrid y que este botón traspase la categoría en este caso
el botón seleccionar

Código Delphi [-]
 fdonacion.eitems.Text := fmodulo.qlistadoitems['categoria'] + ',' +  ' '
  +fmodulo.qlistadoitems['nombre'];
  fdonacion.idmiembro := fmodulo.qmiembros['id_miembro'];

Como verán el botón me pasa esos datos a la form2 donde los empleo de otra forma por lo cual no sirve de nada cuando la form dos no esta activa esperando esos datos


A mi se me ocurrio lo siguiente

Código Delphi [-]
procedure TfListadoitms.FormCreate(Sender: TObject);
begin
  if fdonacion.bvisible = True then
    begin
        bseleccionar.Visible := true;
    end
      else
      begin
        bseleccionar.visible := false;
    end;
end;

en el form2
public
evisible : boolean;
procedure Tfdonacion.FormCreate(Sender: TObject);
begin
  bvisible := true; 

procedure Tfdonacion.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  bvisible := false;
end;

Pero al copilar me tira error en el form1 no se si esta bien planteado