Objetos em tempo de execução em um frame

Delphi

16/03/2003

Oi. Estou usando o seguinte código para criar objetos em tempo de execução dentro de um form:

var
DBEdit1: TDBEdit;

procedure TfrmIncluir.FormShow(Sender: TObject);
begin

dbedit1:=TDBEDIT.Create(self);
dbedit1.Parent:=Self;
dbedit1.Left:=x;
dbedit1.Top:=y;
dbedit1.CharCase := ecUpperCase;

Mas como eu coloco esse código dentro de um while para criar vários, tenho problemas com o Scroll, pois os botões de comandos como Incluir, Excluir ficam no topo do form e ao clicar no Scroll para acessar os dbedit´s que ficam no final do form esses botões desaparecem.

Assim, tive a idéia de criar esses dbedits dentro de um frame. Para isso estou utilizando o seguinte código:

frmincluir.Frame11.dbedit1:=TDBEDIT.Create(self);
frmincluir.Frame11.dbedit1.Parent:=Self;
frmincluir.Frame11.dbedit1.Left:=x;
frmincluir.Frame11.dbedit1.Top:=y;
frmincluir.Frame11.dbedit1.CharCase := ecUpperCase;

Dessa forma os dbedit´s sao criados pq eu declarei a variável dbedit1 no frame. mas são criados dentro do form da mesma forma.

Alguém sabe como fazer isso. Ou tem outra idéia de como resolver o problema do Scroll.

Valew.


Doug_chagas

Doug_chagas

Curtidas 0

Respostas

Doug_chagas

Doug_chagas

16/03/2003

Legal. Mas como insiro objetos em tempo de execução dentro de um ScrollBox?

Obrigado.


GOSTEI 0
Anonymous

Anonymous

16/03/2003

Basta trocar SELF pelo nome do seu ScrollBox. Por exemplo:

dbedit1 := TDBEDIT.Create( ScrollBox1 );
dbedit1.Parent := ScrollBox1;
dbedit1.Left := x;
dbedit1.Top := y;
dbedit1.CharCase := ecUpperCase;


GOSTEI 0
POSTAR