main.~pas

关于利用DELPHI来进行企业级方案解决的著作的附书源码

unit Main;

interface

uses Windows, Classes, Graphics, Forms, Controls,
     StyleD, ListD, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    ModallessButton: TButton;
    Label6: TLabel;
    GroupBox2: TGroupBox;
    ModalButton: TButton;
    Label7: TLabel;
    Label1: TLabel;
    procedure ModallessButtonClick(Sender: TObject);
    procedure ModalButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ModallessButtonClick(Sender: TObject);
begin
  { 使用Show方法来显示非模式窗体 }
  StyleDial.Show;
end;

procedure TForm1.ModalButtonClick(Sender: TObject);
begin
 with ListDial.Listbox1 do
  begin
   { 使用ShowModal方法来显示非模式窗体 }
    if (ListDial.ShowModal = mrOk) and (ItemIndex >= 0) then
   { 将模式对话框中选定条目的标题复制为标签的标题 }
      Label1.Caption := Items [ItemIndex];
  end;
end;

end.