Objeto em tempo de execução
06/03/2003
0
Oi. Utilizo o seguinte código para utilizar objetos em tempo de execução:
query1.Close;
query1.sql.clear;
query1.sql.add(´select * from SX3.DB´);
query1.sql.add(´where X3_ARQUIVO = :tabela ´);
query1.sql.add(´order by X3_ORDEM ´);
query1.params[0].value:= FRMCADCLI._cTABELA;
query1.open;
while not query1.Eof do
begin
Label1:=TLabel.create(self);
Label1.Parent:=Self;
Label1.Left:=x;
Label1.Top:=y;
label1.Caption := QUERY1.FIELDBYNAME(´X3_TITULO´).Value;
y := y + 15;
DBEdit1:=TDBEdit.create(self);
DBEDIT1.Parent:=Self;
DBEDIT1.Left:=x;
DBEDIT1.Top:=y;
y := y + 30;
DBEDIT1.DataSource := TDataSource(dmerp.Components[i]);
DBEDIT1.DataField := QUERY1.FIELDBYNAME(´X3_CAMPO´).Value;
IF X = 50 THEN
BEGIN
X := 200;
Y := Y - 45
END
ELSE
BEGIN
X := 50;
END;
END;
END;
query1.Next;
end;
end;
Procedure TfrmIncluir.evento(Sender: TObject);
begin
showmessage(DBEDIT1.DataField);
end;
end.
Essa linha: DBEdit1.onExit:=evento;
Executa a procedure evento, mas ela só mostra em tela o datafield de um objeto. Não consigo pegar o datafield atribuido a outros objetos.
se alguém puder me ajudar. Valew
query1.Close;
query1.sql.clear;
query1.sql.add(´select * from SX3.DB´);
query1.sql.add(´where X3_ARQUIVO = :tabela ´);
query1.sql.add(´order by X3_ORDEM ´);
query1.params[0].value:= FRMCADCLI._cTABELA;
query1.open;
while not query1.Eof do
begin
Label1:=TLabel.create(self);
Label1.Parent:=Self;
Label1.Left:=x;
Label1.Top:=y;
label1.Caption := QUERY1.FIELDBYNAME(´X3_TITULO´).Value;
y := y + 15;
DBEdit1:=TDBEdit.create(self);
DBEDIT1.Parent:=Self;
DBEDIT1.Left:=x;
DBEDIT1.Top:=y;
y := y + 30;
DBEDIT1.DataSource := TDataSource(dmerp.Components[i]);
DBEDIT1.DataField := QUERY1.FIELDBYNAME(´X3_CAMPO´).Value;
IF X = 50 THEN
BEGIN
X := 200;
Y := Y - 45
END
ELSE
BEGIN
X := 50;
END;
END;
END;
query1.Next;
end;
end;
Procedure TfrmIncluir.evento(Sender: TObject);
begin
showmessage(DBEDIT1.DataField);
end;
end.
Essa linha: DBEdit1.onExit:=evento;
Executa a procedure evento, mas ela só mostra em tela o datafield de um objeto. Não consigo pegar o datafield atribuido a outros objetos.
se alguém puder me ajudar. Valew
Doug_chagas
Curtir tópico
+ 0
Responder
Posts
06/03/2003
Marcelo Saviski
[color=red:fed115afe0]Tente assim[/color:fed115afe0]
[color=orange:fed115afe0]Espero ter ajudado[/color:fed115afe0]
[img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_biggrin.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_smile.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_frown.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_eek.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_confused.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cool.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_lol.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_mad.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_razz.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_redface.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cry.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_evil.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_rolleyes.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smil
Procedure TfrmIncluir.evento(Sender: TObject); begin showmessage((sender as TDBedit).DataField); end;
[color=orange:fed115afe0]Espero ter ajudado[/color:fed115afe0]
[img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_biggrin.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_smile.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_frown.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_eek.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_confused.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cool.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_lol.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_mad.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_razz.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_redface.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cry.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_evil.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smiles/icon_rolleyes.gif[/img:fed115afe0][img:fed115afe0]http://www.apriori.com.br/cgi/forum/images/smil
Responder
Clique aqui para fazer login e interagir na Comunidade :)