Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 08-07-2003
mpedra mpedra is offline
Miembro
 
Registrado: may 2003
Ubicación: Buenos Aires (Arg)
Posts: 19
Poder: 0
mpedra Va por buen camino
Si no te he entendido mal este código estaria haciendo lo que necesitas, aunque la explicación estas dando del problema no alcanza para definirlo por completo.

Formualrio1 = Class(TForm)
...
published

Procedure OnClickBuscarCliente(Sender:TObject);

end;



Formulario2 = Class(TForm)
...
published

Function Buscar(DS:TDataSet):Boolean;

end;



Procedure Formulario1.OnClickBuscarCliente(Sender:TObject);
var b:TBookmark;
bb:Boolean;
begin try DatasourceF1.DisableControls;
B:=Table1F1.GetBookmark;
with Formulario2.Create(self) do
begin bb:=Buscar(Table1F1);
Free;
end;
finally DataSourceF1.EnableControls;
if not bb then Table1F1.GotoBookmark(B)
esle refresh;
end;
end;



Procedure Formulario2.Buscar(DS:TDataset):Boolean;
begin Datasource2.DataSet:=DS;
Showmodal;
result:= (modalResult=MROK);
end;

Esta solución depende de los controles de acceso a los datos que estes utilizando. Aqui estoy suponiendo que el Formualrio1 muestra los datos de los clientes desde una tabla, pero si fuera una Query la solución posiblemente no sirva.
El Formulario2 funciona con la misma tabla del formulario1 y entonces cuando mueves el cursor lo haces siempre sobre la misma tabla.
Bueno no se si es lo que necesitabas, pero eso es lo que entendi, espero que sirva de algo

Saludos
__________________
Marcos
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 03:46:04.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi