toolpropertyfrm.pas

来自「一个电力企业的后台管理程序」· PAS 代码 · 共 91 行

unit ToolPropertyFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls;

type
  TForm_ToolProperty = class(TForm)
    Label1: TLabel;
    Edt_Title: TEdit;
    Label2: TLabel;
    Edt_program: TEdit;
    Label3: TLabel;
    Edt_directory: TEdit;
    SB_ok: TSpeedButton;
    SB_Cancel: TSpeedButton;
    SB_browse: TSpeedButton;
    OpenDialog1: TOpenDialog;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure SB_browseClick(Sender: TObject);
    procedure SB_CancelClick(Sender: TObject);
    procedure SB_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_ToolProperty: TForm_ToolProperty;

implementation
uses MemuOption,ToolOptionsFrm;
{$R *.DFM}

procedure TForm_ToolProperty.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=CaFree;
  Form_ToolProperty:=nil;
end;

procedure TForm_ToolProperty.FormCreate(Sender: TObject);
begin
  Edt_Title.Text:='';
  Edt_program.Text:='';
  Edt_directory.Text:='';
end;

procedure TForm_ToolProperty.SB_browseClick(Sender: TObject);
begin
  if opendialog1.Execute then
  begin
    Edt_program.Text:=opendialog1.FileName;
    Edt_directory.Text:=ExtractFileDir(opendialog1.FileName);
  end;
end;

procedure TForm_ToolProperty.SB_CancelClick(Sender: TObject);
begin
  close;
end;

procedure TForm_ToolProperty.SB_okClick(Sender: TObject);
begin
  if MenuStatus=MenuAdd then
  begin
    if (Edt_Title.Text<>'')and(Edt_program.Text<>'') then
    begin
      Form_ToolOptions.listbox1.Items.Append(Edt_Title.Text);
      Form_ToolOptions.Listbox2.Items.Append(Edt_program.Text);
      close;
    end else
    begin
      exit;
      showmessage('请输入完整内容！');
      Edt_Title.SetFocus;
    end;
  end else
  begin
    Form_ToolOptions.listbox1.Items.Strings[EditInt]:=Edt_Title.Text;
    Form_ToolOptions.listbox2.Items.Strings[EditInt]:=Edt_program.Text;
    close;
  end;
end;

end.