ufdgroup.pas

来自「EXE+BPL+DLL+Interface項目解決方案演示 經典」· PAS 代码 · 共 57 行

unit uFDGroup;

interface

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

type
  TFDGroupForm = class(TFBaseForm)
    btnGetStr: TButton;
    EdShow: TEdit;
    btnSetStr: TButton;
    lblShow: TLabel;
    EdSetStr: TEdit;
    lblSetStr: TLabel;
    mmoDetail: TMemo;
    procedure btnGetStrClick(Sender: TObject);
    procedure btnSetStrClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FDGroupForm: TFDGroupForm;

implementation

uses
  uDKSoftDM;

{$R *.dfm}

procedure TFDGroupForm.btnGetStrClick(Sender: TObject);
begin
  inherited;
  EdShow.Text := DKSoftDM.TestStr;
end;

procedure TFDGroupForm.btnSetStrClick(Sender: TObject);
begin
  inherited;
  DKSoftDM.TestStr := EdSetStr.Text;
end;

procedure TFDGroupForm.FormCreate(Sender: TObject);
begin
  inherited;
  mmoDetail.Lines.LoadFromFile('detail.txt');
end;

end.