如何让它们变回真？(50分)

D

delphiboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-10

• #1

请教大家一个问题：
如何让FORM上几十个LABEL和EDIT的SHOWHINT属性变为
假？又如何让它们变回真？

谢谢大家帮忙！！

 

H

howardqu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-10

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
L: TLabel;
begin
for I := 0 to Form1.ComponentCount - 1 do
begin
if (Form1.Components is TLabel) then
begin
L := TLabel(Form1.Components);
L.ShowHint:=true;
end;
end;
end;

TEdit 一样

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-29

• #3

接受答案了.