Ver Mensaje Individual
  #10  
Antiguo 01-08-2013
Avatar de The Cid James
The Cid James The Cid James is offline
Miembro
NULL
 
Registrado: jun 2013
Posts: 129
Reputación: 11
The Cid James Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
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
Responder Con Cita