Objetos em tempo de execução em um frame

16/03/2003

0

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

Responder

Posts

16/03/2003

Doug_chagas

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

Obrigado.


Responder

17/03/2003

Anonymous

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;


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

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

Aceitar