Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

³o¤@¬qDelphiµ{¦¡¥i¥H§ï¦¨BCBª©ªº¶Ü¡H

0 views
Skip to first unread message

蒙面嫉妒團團長

unread,
Jul 25, 2001, 10:13:24 PM7/25/01
to
取自"Delphi 深度歷險"這本書...

procedure EnableControl(AControl: TControl; Enable: Boolean);
var
I: Integer;
begin
AControl.Enabled := Enable;
if AControl is TWinControl then
with TWinControl(AControl) do
begin
for I := 0 to ControlCount - 1 do
EnableControl(Controls[I], Enable);
end;
end;

procedure EnableClassControl(AControl: TControl; Enable: Boolean; ControlClass: TControlClass);
var
I: Integer;
begin
if (AControl is ControlClass) then AControl.Enabled := Enable;

if AControl is TWinControl then
with TWinControl(AControl) do
begin
for I := 0 to ControlCount - 1 do
EnableClassControl(Controls[I], Enable, ControlClass);
end;
end;
--
* Origin: ★ 交通大學資訊科學系 BBS ★ <bbs.cis.nctu.edu.tw: 140.113.23.3>

0 new messages