na criação da condição...

olá a todos, dei uma trancada aqui na hora de criar uma condição no meu programa, a idéia é a seguinte, ao dar um dblclick no dbgrid no form1, ele crie componentes no form2, preenche os dados e da um form2.show,

o q a condição deve fazer será, verificar se existe algum componente no form2, se existir ele só deve preencher os dados, se naum existir nenhum componente, faz todo o conjunto de comandos para criar os componentes e preencher os dados

o comando q estou utilizando para verificar se existe algum componente é este :

vari : Integer;begin for i := 0 to ComponentCount -1 do begin if Components[i] is "componente em questão" then begin (comandos) end; end;end;

e o comando de criar componentes, a parte em negrito é a de preencher os dados :

procedure TForm1.RecordView1Click(Sender: TObject);varn : integer;begin for n:=1 to datamodule6.dbf1.FieldCount do begin inc(n2, 24); with TDBEdit.Create(self) do begin parent := form2; name := 'dbedit'+ inttostr(n); <strong class='bbc'>datasource := datamodule6.datasource1; datafield := datamodule6.dbf1.FieldDefs.Items[n-1].Name;</strong> left := 125; top := 2 + n2; width := 297; end; with Tlabel.create (self) do begin parent := form2; <strong class='bbc'>caption:= datamodule6.dbf1.FieldDefs[n-1].Name;</strong> name := 'label'+inttostr(n+3); top := 4 + n2; left := 40; end; with form2 do begin width := 500; height:= height +24; form2.Show; end; end; if datamodule6.dbf1.FieldCount > 0 then begin with Tdbnavigator.Create(self) do begin parent := form2; <strong class='bbc'>datasource := datamodule6.datasource1;</strong> top := 35 + n2; name := 'dbnavigator1'; left := 125; end; end;form2.show;end;

desde já agradeço a todos q ajudarem http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif