modalform.pas

来自「一个大型的机房管理系统,可以用在学校的实验室管理,网吧管理也行,功能丰富.」· PAS 代码 · 共 30 行

unit ModalForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TEMPLETFORM, Menus, ComCtrls, ToolWin, StdCtrls, ExtCtrls,
  LabelButton, MoveImageButton;

type
  TMyModalForm = class(TMyForm)
    lbBtnOK: TLabelBtn;
    lbBtnExit: TLabelBtn;
    MIBtnOK: TMoveImgBtn;
    MIBtnExit: TMoveImgBtn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MyModalForm: TMyModalForm;

implementation

{$R *.dfm}

end.