【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-cmboxsetu.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit cmboxsetu;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SUIButton, StdCtrls, ExtCtrls, SUIForm;
type
Tcmboxsetfm = class(TForm)
cmboxset: TsuiForm;
suiButton1: TsuiButton;
suiButton2: TsuiButton;
Memo: TMemo;
procedure suiButton1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure suiButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
filename:string;
listvalue:tstrings ;
end;
var
cmboxsetfm: Tcmboxsetfm;
implementation
{$R *.dfm}
procedure Tcmboxsetfm.suiButton1Click(Sender: TObject);
begin
Memo.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'zd\'+filename);
cmboxsetfm.close;
end;
procedure Tcmboxsetfm.FormShow(Sender: TObject);
begin
Memo.Lines:= listvalue ;
end;
procedure Tcmboxsetfm.suiButton2Click(Sender: TObject);
begin
cmboxsetfm.close;
end;
end.
上一篇:
DockToolbarView.cpp
下一篇:
法律专业开题报告范文