GARANTIR DESCONTO

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;


Mistervips

Mistervips

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar