开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
OleForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

OleForm.pas：源码内容
  1. unit OleForm;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Menus, ExtCtrls, StdCtrls, OleCtnrs, Buttons;
  9. type
  10.   TForm1 = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     File1: TMenuItem;
  13.     Exit1: TMenuItem;
  14.     N2: TMenuItem;
  15.     SaveAs1: TMenuItem;
  16.     Open1: TMenuItem;
  17.     New1: TMenuItem;
  18.     Help1: TMenuItem;
  19.     About1: TMenuItem;
  20.     Edit1: TMenuItem;
  21.     Object1: TMenuItem;
  22.     N3: TMenuItem;
  23.     PasteSpecial1: TMenuItem;
  24.     Paste1: TMenuItem;
  25.     Copy1: TMenuItem;
  26.     Cut1: TMenuItem;
  27.     ToolbarPanel: TPanel;
  28.     NewSpeedButton: TSpeedButton;
  29.     CutSpeedButton: TSpeedButton;
  30.     CopySpeedButton: TSpeedButton;
  31.     PasteSpeedButton: TSpeedButton;
  32.     AboutSpeedButton: TSpeedButton;
  33.     MainPanel: TPanel;
  34.     OleContainer1: TOleContainer;
  35.     OpenDialog1: TOpenDialog;
  36.     SaveDialog1: TSaveDialog;
  37.     Panel1: TPanel;
  38.     BitBtn1: TBitBtn;
  39.     BitBtn2: TBitBtn;
  40.     BitBtn3: TBitBtn;
  41.     procedure Exit1Click(Sender: TObject);
  42.     procedure New1Click(Sender: TObject);
  43.     procedure About1Click(Sender: TObject);
  44.     procedure Paste1Click(Sender: TObject);
  45.     procedure PasteSpecial1Click(Sender: TObject);
  46.     procedure Edit1Click(Sender: TObject);
  47.     procedure Copy1Click(Sender: TObject);
  48.     procedure Cut1Click(Sender: TObject);
  49.     procedure Object1Click(Sender: TObject);
  50.     procedure Open1Click(Sender: TObject);
  51.     procedure SaveAs1Click(Sender: TObject);
  52.   private
  53.     { Private declarations }
  54.     procedure UpdateUI;
  55.   public
  56.     { Public declarations }
  57.   end;
  59. var
  60.   Form1: TForm1;
  62. implementation
  64. {$R *.DFM}
  66. procedure TForm1.Exit1Click(Sender: TObject);
  67. begin
  68.   Close;
  69. end;
  71. procedure TForm1.New1Click(Sender: TObject);
  72. begin
  73.   if OleContainer1.InsertObjectDialog then
  74.     OleContainer1.DoVerb (
  75.       OleContainer1.PrimaryVerb);
  76.   UpdateUI;
  77. end;
  79. procedure TForm1.About1Click(Sender: TObject);
  80. begin
  81.   MessageDlg ('Sample OLE container' +
  82.     #13'From the book "Mastering Delphi"',
  83.     mtInformation, [mbOk], 0);
  84. end;
  86. procedure TForm1.Paste1Click(Sender: TObject);
  87. begin
  88.   OleContainer1.Paste;
  89.   UpdateUI;
  90. end;
  92. procedure TForm1.PasteSpecial1Click(Sender: TObject);
  93. begin
  94.   OleContainer1.PasteSpecialDialog;
  95.   UpdateUI;
  96. end;
  98. procedure TForm1.Edit1Click(Sender: TObject);
  99. begin
  100.   UpdateUI;
  101. end;
  103. procedure TForm1.UpdateUI;
  104. begin
  105.   Cut1.Enabled := OleContainer1.State <> osEmpty;
  106.   Copy1.Enabled := OleContainer1.State <> osEmpty;
  107.   Object1.Enabled := OleContainer1.State <> osEmpty;
  108.   Paste1.Enabled := OleContainer1.CanPaste;
  109.   PasteSpecial1.Enabled := OleContainer1.CanPaste;
  110.   PasteSpeedButton.Enabled := Paste1.Enabled;
  111.   CutSpeedButton.Enabled := Cut1.Enabled;
  112.   CopySpeedButton.Enabled := Copy1.Enabled;
  113. end;
  115. procedure TForm1.Copy1Click(Sender: TObject);
  116. begin
  117.   OleContainer1.Copy;
  118.   UpdateUI;
  119. end;
  121. procedure TForm1.Cut1Click(Sender: TObject);
  122. begin
  123.   OleContainer1.Copy;
  124.   OleContainer1.Destroy;
  125.   UpdateUI;
  126. end;
  128. procedure TForm1.Object1Click(Sender: TObject);
  129. begin
  130.   OleContainer1.ObjectPropertiesDialog;
  131. end;
  133. procedure TForm1.Open1Click(Sender: TObject);
  134. begin
  135.   if OpenDialog1.Execute then
  136.     OleContainer1.LoadFromFile (OpenDialog1.FileName);
  137.   UpdateUI;
  138. end;
  140. procedure TForm1.SaveAs1Click(Sender: TObject);
  141. begin
  142.   if SaveDialog1.Execute then
  143.     OleContainer1.SaveToFile (SaveDialog1.FileName);
  144. end;
  147. end.