util.pas

在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。

unit util;

interface

uses Controls, Forms, Windows;

procedure EnableControl(AControl: TControl; Enable: Boolean);
procedure MsgBox(const Msg: string);
procedure ErrBox(const Msg: string);

implementation

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 MsgBox(const Msg: string);
begin
  Application.MessageBox(PChar(Msg), PChar(Application.Title), MB_ICONINFORMATION);
end;

procedure ErrBox(const Msg: string);
begin
  Application.MessageBox(PChar(Msg), PChar(Application.Title), MB_ICONERROR);
end;

end.