form1.tag:=9;
没有实际意义,你可以用它保存一些东西。
delphi没有用到它
没有实际意义,你可以用它保存一些东西。
delphi没有用到它
解决方案 »
- WebBrowser在浏览某个网页时,怎么自动取得当前网页当中的验证码,或附加码之类的东西?
- 删除记录时出错,用的是delete删除的
- webservice中ISAPI服务器端的发布问题?急!!!!!!!!!!!!!!!!!!!
- 高兴,散分
- 在线等待!!我在做图标在另一个IMAGE上显示的时候,也了一个问题!!80分
- 人生目的调查:腰缠万贯的文盲,学识渊博的专家教授,你更羡慕谁?
- 关于实时监控邮箱信件数量的疑惑,请高人指点。
- 很菜的问题,怎样取得listbox的值?
- 我想让生成的文件带有自定义图标怎么做呢
- 关于指针定义的问题。
- 使用DrawGrid时,点击其中的方格会出现一个类似焦点的虚线框,能不能让它不出现?
- 请教一个有关数据类型的问题?在线等待!
如你的FORM有兩種狀態,在不同的狀態的某些構件的enabled有所變化.就用行上Tag.
例子:
如Form1中用DBEdit1,DBEdit2,DBEdit3,DBEdit4和其它構件,有兩種狀態一種是編輯狀態,一種是瀏覽狀態。
當瀏覽狀態中,Edit1,Edit2,Edit3,Edit4->Enabled=False;
當是編輯狀態下,反之。
在轉換狀態的時候,你可能要每一個構件更改它的Enabled屬性。這樣是一件比較麻煩的事,而且在不同的FORM中如果有相同的要求,你也得這樣做。
有了TAG,你可以用以下的公用語句來解決這個問題,你隻要在需更改狀態的時候,使用這個過程就可以了。
準備,把需要更改狀態的構件的TAG設為同一個值 ,如100。
procedure ....
var
I : Integer;
.....
begin
....
for I:=0 to ComponentCount-1 do
begin
if Components[I].Tag<>100 then Continue;
if UpperCase(Components[I].ClassName)='TDBEDIT' then
TDBEdit(Components[I]).Enabled:=not TDBEdit(Components[I]).Enabled;
end;//for
end;
應為
當瀏覽狀態中,DBEdit1,DBEdit2,DBEdit3,DBEdit4->Enabled=False;
^&^
999999999999999999999999999999999999999999999999999
999999999999999999999999999999999999999999999999999
99999999999B@B@B@BBBMMMM999999999999999999999999999
999999999999M+:.:+9999M:999999999999999999999999999
9999999999999MM9+99MMM:9999999999999999999999999999
99999999999999M+.+99M:99999999999999999999999999999
99999999999999B:.++9M:99999999999999999999999999999
99999999999999B+.+99M:9999AAAAAA9999999999999999999
99999999999999B:.++9M:9AAA++++:+AAA9999999999999999
99999999999999B+.+99M:A+9+A:+++++9AA999999999999999
99999999999999B:.++9:A+@+A:,:++9+A9@M99999999999999
99999999999999B+.+9:A+A,,,,,,+A+A9@A@M9999999999999
99999999999999B:.++A+A+,,.,,+A9A9@A@M@M999999999999
99999999999999B+.+9AA+,,...,++A9@A@A@MM999999999999
99999999999999B:.+:A+++,,.,,++9@A@A@M@M999999999999
99999999999999B+.+A+@+,,,,,+9A@A+@@M@M@M99999999999
99999999999999B:.+A@+++,+,+9A9A++@M@M@MM99999999999
99999999999999B+.+A+@++++++A9A++9M@M@M@M99999999999
99999999999999B:.+A@+@+:+9A9A9A9M@M@M@9M99999999999
0A999999999999B+.+A+@+@+@+@+@A@A@9@9@9@M99999999999
99999999999999B:.+A@+@+@+@+@+@A@M@9@9@9M99999999999
99999999999999B+.+:A@+@+@+@+@A@M@9@9@9M999999999999
99999999999999B:.+:A9@+@+@+@9@A@M@9@9@M999999999999
99999999993333333333M9@9@9@9@9@M@9@9@9M999999999999
99999999993.........MAA99@9@9@M@9@9@9M9999999999999
99999999993...MMMM..MM@9@9@9@9@M@9@9M99999999999999
99999999993....MMM..M:M@9@9@9@9@9@9M999999999999999
99999999993...MMMM..M:9MMM@9@9@9MMM9999999999999999
99999999993..MMM.M..M:9999MMMMMM9999999999999999999
99999999993..MM.....M:99999999999999999999999999999
99999999993..M......M:99999999999999999999999999999
99999999993...M.....MM:9999999999999999999999999999
99999999993.........M9M:999999999999999999999999999
9999999999MMMMMMMMMMMMMM:99999999999999999999999999
999999999999999999999999999999999999999999999999999
999999999999999999999999999999999999999999999999999
999999999999999999999999999999999999999999999999999
999999999999999999999999999999999999999999999999999
999999999999999999999999999999999999999999999999999
999999999999999999999999999999999999999999999999999
99999999999999999999.9999999.9999999999999999999999
9999999....999999999.9999999.99999.999999..99999999
9999999.999.99999999.9999999.99999999999.9999999999
9999999.9999.99...99.9....99....99.9999.99999999999
9999999.9999.9.999.9.9.999.9.999.9.9999....99999999
9999999.9999.9.....9.9.999.9.999.9.9999.999.9999999
9999999.9999.9.99999.9.999.9.999.9.9999.999.9999999
9999999.999.99.999.9.9.999.9.999.9.9999.999.9999999
9999999....9999...99.9....99.999.9.99999...99999999
9999999999999999999999.9999999999999999999999999999
9999999999999999999999.9999999999999999999999999999
999999999999999999999999999999999999999999999999999
999999999999999999999999999999999999999999999999999
999999999999999999999999999999999999999999999999999
999999999999999999999999999999999999999999999999999
999999999999999999999999999999999999999999999999999
999999999999999999999999999999999999999999999999999
999999999999999999999999999999999999999999999999999
begin
if sender is TButton then
case (sender as TButton).Tag of
0:
....
1:
...
2:
...
end;
end;