Como abrir formulario usando tag
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
Curtidas 0