Tag - Please !!!
Diversos componentes tem uma [b:d6479a601d]Propriedade Tag[/b:d6479a601d]. Como a Query, dataSource, ClientDataSet... O que está propriedade faz ?
Muito Obrigado!
Muito Obrigado!
Anormal
Curtidas 0
Respostas
Anonymous
19/03/2003
Esta propriedade não faz nada !
A principal utilização é como um ´FLAG´.
Por exemplo:
procedure ZeraComponentes(const Form: TForm);
var I: integer;
begin
for I:= 0 to (Form.ComponentCount-1) do
if (Form.Components[I] is TDBEdit) then
if TDBEdit(Form.Components[I]).Tag = -1 then
TDBEdit(Form.Components[I]).Field.Value:=0;
end;
A procedure atribui 0 quando a propriedade Tag = -1
[url]www.veloso.kit.net[/url]
A principal utilização é como um ´FLAG´.
Por exemplo:
procedure ZeraComponentes(const Form: TForm);
var I: integer;
begin
for I:= 0 to (Form.ComponentCount-1) do
if (Form.Components[I] is TDBEdit) then
if TDBEdit(Form.Components[I]).Tag = -1 then
TDBEdit(Form.Components[I]).Field.Value:=0;
end;
A procedure atribui 0 quando a propriedade Tag = -1
[url]www.veloso.kit.net[/url]
GOSTEI 0
Anormal
19/03/2003
Esta propriedade não faz nada !
A principal utilização é como um ´FLAG´.
Por exemplo:
procedure ZeraComponentes(const Form: TForm);
var I: integer;
begin
for I:= 0 to (Form.ComponentCount-1) do
if (Form.Components[I] is TDBEdit) then
if TDBEdit(Form.Components[I]).Tag = -1 then
TDBEdit(Form.Components[I]).Field.Value:=0;
end;
A procedure atribui 0 quando a propriedade Tag = -1
[url]www.veloso.kit.net[/url]
____________________
Mas quando a propriedade Tag vai ser -1 ? Pois não foi atribuido nada para ela... ?
GOSTEI 0
Anonymous
19/03/2003
Você atribui o que quiser na TAG (Inteiro claro).
Imagine um Form com vários TDBEdits e você deseja que os númericos tenham o valor inicial zero, então coloque no TAG=-1 nos TDBEdits númericos. Execute a procedure ZeraComponentes() quando for incluir um novo registro.
Detalhe: eu coloquei -1, porém poderia ser qualquer número inteiro, menos zero, pois o TAG já vêm zerado, funciona com uma ´FLAG´.
[url]www.veloso.kit.net[/url]
Imagine um Form com vários TDBEdits e você deseja que os númericos tenham o valor inicial zero, então coloque no TAG=-1 nos TDBEdits númericos. Execute a procedure ZeraComponentes() quando for incluir um novo registro.
Detalhe: eu coloquei -1, porém poderia ser qualquer número inteiro, menos zero, pois o TAG já vêm zerado, funciona com uma ´FLAG´.
[url]www.veloso.kit.net[/url]
GOSTEI 0
Dor_poa
19/03/2003
GOSTEI 0