MainForm.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit MainForm;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   StdCtrls;
  6. type
  7.   TForm1 = class(TForm)
  8.     btnMultiple: TButton;
  9.     btnSingle: TButton;
  10.     btnModal: TButton;
  11.     procedure btnSingleClick(Sender: TObject);
  12.     procedure btnMultipleClick(Sender: TObject);
  13.     procedure btnModalClick(Sender: TObject);
  14.   private
  15.     { Private declarations }
  16.   public
  17.     { Public declarations }
  18.   end;
  19. var
  20.   Form1: TForm1;
  21. implementation
  22. uses
  23.   MWForm2, MWForm3, MWForm4;
  24. {$R *.DFM}
  25. procedure TForm1.btnSingleClick(Sender: TObject);
  26. begin
  27.   if not Assigned (Form2) then
  28.     Form2 := TForm2.Create (Application);
  29.   Form2.Show;
  30. end;
  31. procedure TForm1.btnMultipleClick(Sender: TObject);
  32. begin
  33.   with TForm3.Create (Application) do
  34.     Show;
  35. end;
  36. procedure TForm1.btnModalClick(Sender: TObject);
  37. var
  38.   Modal: TForm4;
  39. begin
  40.   Modal := TForm4.Create (Application);
  41.   try
  42.     Modal.ShowModal;
  43.   finally
  44.     Modal.Free;
  45.   end;
  46. end;
  47. end.