程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi中剪切板的使用[4]:如果把子控件一起復制

Delphi中剪切板的使用[4]:如果把子控件一起復制

編輯:Delphi

如果連同子控件一起復制到剪切板, 需要定義一個新類型.

譬如在一個 TPanel 中包含一個 TEdit; 在復制 TPanel 時, 若要連同 TEdit 一起復制, 需要重新從 TPanel 中繼承出一個類來(譬如是 TMyPanel), 把 TEdit 包含在新的類中.

運行效果圖:

TMyPanel 類的單元:

unit MyPanel;

interface

uses Classes, StdCtrls, ExtCtrls;

type
 TMyPanel = class(TPanel)
  Edit1: TEdit; 
  constructor Create(AOwner: TComponent); override;
 end;

implementation

{ TMyPanel }

constructor TMyPanel.Create(AOwner: TComponent);
begin
 inherited;
 Edit1 := TEdit.Create(Self);
 Edit1.Parent := Self;
 Edit1.Left := 10;
 Edit1.Top := 10;
 RegisterClasses([TMyPanel]); {在這裡就給注冊了}
end;

end.

測試單元:

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
  Button1: TButton;
  Button2: TButton;
  procedure FormCreate(Sender: TObject);
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

uses Clipbrd, MyPanel;

var
 obj: TComponent;
 pnl: TMyPanel;

procedure TForm1.FormCreate(Sender: TObject);
begin
 pnl := TMyPanel.Create(Self);
 pnl.Parent := Self;
 pnl.Edit1.Text := '一起被復制';

 Button1.Caption := '復制';
 Button2.Caption := '粘貼';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Clipboard.SetComponent(pnl);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if Clipboard.HasFormat(CF_COMPONENT) then
 begin
  obj := Clipboard.GetComponent(Self, Self);
  TMypanel(obj).Left := 20;
  TMypanel(obj).Top := 60;
 end;
end;

end.

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved