dialogform.pas

Delphi basic program. Basic programing guide for delphi language. Several samples are giving.

unit DialogForm;

interface

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

type
  TMainForm = class(TForm)
    Button1: TButton;
    RichEdit1: TRichEdit;
    ColorDialog1: TColorDialog;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    FontDialog1: TFontDialog;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.Button1Click(Sender: TObject);
var
filename:String;
begin
    if(True=opendialog1.Execute())then
    begin       //打开指定文件
       filename:=opendialog1.FileName;
       richedit1.Lines.LoadFromFile(filename);
    end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  MainForm.Caption:='对话框示例';
  button1.Caption:='打开文件';   //设置按钮的显示值
  button2.caption:='保存文件';
  button3.Caption:='字体颜色';
  button4.Caption:='设置字体';
  richedit1.ScrollBars:=ssBoth; //允许编辑控件有水平和垂直滚动条
  opendialog1.Filter:='Text  files (*.txt)|*.TXT';
  savedialog1.Filter:='Text  files (*.txt)|*.TXT';
     //设置两个对话框的过滤器
end;

procedure TMainForm.Button2Click(Sender: TObject);
var
filename:String;
begin
    if(True=savedialog1.Execute())then
      begin    //将编辑框中的内容保存为文件
         filename:=savedialog1.FileName;
         richedit1.Lines.SaveToFile(filename);
      end;
   end;
procedure TMainForm.Button3Click(Sender: TObject);
begin
    if(True=colordialog1.Execute) then
    begin     //设置选择文本的前景色
       richedit1.SelAttributes.Color:=colordialog1.Color;
    end;
end;

procedure TMainForm.Button4Click(Sender: TObject);
begin    //设置字体的风格
   if(True=fontdialog1.Execute) then
       richedit1.SelAttributes.Style:=fontdialog1.Font.Style;
end;
end.