Fórum Como abrir formulario usando tag #347147
09/10/2007
0
bem moçada estou com um serio problema como faço para abrir um form que esta listado desta forma em um listbox
Relação de Items para pesquisa
*Código do Cliente
*Número do Cpf
*Nome do Cliente + Data de Nascimento
Bom e mais ou menos isto
agora irei mandar o código para ver se podem me ajudar
{Caso o Usuário Tenha Selecionado a Opção de Pesquisa com Paramâmetros }
if (FNumOpcIndice>=0) and (FNumOpcIndice>FVpsBrowser.VpsControlTable.Searchs.Count) then
begin
FFormEdit:=Nil;
FFormCriado:=False;
FNumSearchs:= 0-FVpsBrowser.VpsControlTable.Searchs[FNumSearchs].FormIndex;
{ Verifica se no TVpsControlTable Colletion Search Item foi Indicado um Formulário }
if (not Assigned(FFormEdit)) and (not Empty(FVpsBrowser.VpsControlTable.Searchs[FNumSearchs].FormNome)) then
begin
FFormEdit:=((Application.FindComponent(FVpsBrowser.VpsControlTable.Searchs[FNumSearchs].FormNome)) as TForm);
if (not Assigned(FFormEdit)) and (Assigned(FVpsBrowser.VpsControlTable.Searchs[FNumSearchs].CreateSearchForm)) then
begin
FVpsBrowser.VpsControlTable.Searchs[FNumSearchs].CreateSearchForm(Self, FFormEdit,FNumSearchs);
if Assigned(FFormEdit) then
FFormCriado:=True;
end;
end;
{Condições para Pesquisa}
// FFormEdit.Caption:=´Venicio´;
if Assigned(FFormEdit) then
begin
{ Apresenta o Formulário, Caso Tenha Sido Criado no FFormEdit.ShowModal;
{ Caso o Formulário Tenha Sido Criado, Destroi Agora }
if FFormCriado then
FFormEdit.Free;
end
else
begin
ShowMessage(´Está Condição de Pesquisa Não Pode ser Exibida !´);
end;
end;
Relação de Items para pesquisa
*Código do Cliente
*Número do Cpf
*Nome do Cliente + Data de Nascimento
Bom e mais ou menos isto
agora irei mandar o código para ver se podem me ajudar
{Caso o Usuário Tenha Selecionado a Opção de Pesquisa com Paramâmetros }
if (FNumOpcIndice>=0) and (FNumOpcIndice>FVpsBrowser.VpsControlTable.Searchs.Count) then
begin
FFormEdit:=Nil;
FFormCriado:=False;
FNumSearchs:= 0-FVpsBrowser.VpsControlTable.Searchs[FNumSearchs].FormIndex;
{ Verifica se no TVpsControlTable Colletion Search Item foi Indicado um Formulário }
if (not Assigned(FFormEdit)) and (not Empty(FVpsBrowser.VpsControlTable.Searchs[FNumSearchs].FormNome)) then
begin
FFormEdit:=((Application.FindComponent(FVpsBrowser.VpsControlTable.Searchs[FNumSearchs].FormNome)) as TForm);
if (not Assigned(FFormEdit)) and (Assigned(FVpsBrowser.VpsControlTable.Searchs[FNumSearchs].CreateSearchForm)) then
begin
FVpsBrowser.VpsControlTable.Searchs[FNumSearchs].CreateSearchForm(Self, FFormEdit,FNumSearchs);
if Assigned(FFormEdit) then
FFormCriado:=True;
end;
end;
{Condições para Pesquisa}
// FFormEdit.Caption:=´Venicio´;
if Assigned(FFormEdit) then
begin
{ Apresenta o Formulário, Caso Tenha Sido Criado no FFormEdit.ShowModal;
{ Caso o Formulário Tenha Sido Criado, Destroi Agora }
if FFormCriado then
FFormEdit.Free;
end
else
begin
ShowMessage(´Está Condição de Pesquisa Não Pode ser Exibida !´);
end;
end;
Mistervips
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)