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.
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
Curtir tópico
+ 0
Responder
Posts
16/03/2003
Doug_chagas
Legal. Mas como insiro objetos em tempo de execução dentro de um ScrollBox?
Obrigado.
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;
dbedit1 := TDBEDIT.Create( ScrollBox1 );
dbedit1.Parent := ScrollBox1;
dbedit1.Left := x;
dbedit1.Top := y;
dbedit1.CharCase := ecUpperCase;
Responder
Clique aqui para fazer login e interagir na Comunidade :)