Cita:
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