Копирование и вставка данных своего формата из буфера обмена

Code:

{

Copyright © by Delphi 5 Developer's Guide - Xavier Pacheco and Steve Teixeira

}

unit MainFrm;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, clipbrd, Mask, ComCtrls;

type

TMainForm = class(TForm)

   edtFirstName: TEdit;

   edtLastName: TEdit;

   edtMI: TEdit;

   btnCopy: TButton;

   btnPaste: TButton;

   meAge: TMaskEdit;

   btnClear: TButton;

   lblFirstName: TLabel;

   lblLastName: TLabel;

   lblMI: TLabel;

   lblAge: TLabel;

   lblBirthDate: TLabel;

   memAsText: TMemo;

   lblCustom: TLabel;

   lblText: TLabel;

   dtpBirthDate: TDateTimePicker;

   procedure btnCopyClick(Sender: TObject);

   procedure btnPasteClick(Sender: TObject);

   procedure btnClearClick(Sender: TObject);

end;

var

MainForm: TMainForm;

implementation

uses cbdata;

{$R *.DFM}

procedure TMainForm.btnCopyClick(Sender: TObject);

// This method copies the data in the form's controls onto the clipboard

var

DataObj: TData;

begin

DataObj := TData.Create;

try

   with DataObj.Rec do

   begin

     FName := edtFirstName.Text;

     LName := edtLastName.Text;

     MI := edtMI.Text;

     Age := StrToInt(meAge.Text);

     BirthDate := dtpBirthDate.Date;

     DataObj.CopyToClipBoard;

   end;

finally

   DataObj.Free;

end;

end;

procedure TMainForm.btnPasteClick(Sender: TObject);

{ This method pastes CF_DDGDATA formatted data from the clipboard to

the form's controls. The text version of this data is copied to the

form's TMemo component. }

var

DataObj: TData;

begin

btnClearClick(nil);

DataObj := TData.Create;

try

   // Check if the CF_DDGDATA format is available

   if ClipBoard.HasFormat(CF_DDGDATA) then

     // Copy the CF_DDGDATA formatted data to the form's controls

     with DataObj.Rec do

     begin

       DataObj.GetFromClipBoard;

       edtFirstName.Text := FName;

       edtLastName.Text := LName;

       edtMI.Text := MI;

       meAge.Text := IntToStr(Age);

       dtpBirthDate.Date := BirthDate;

     end;

finally

   DataObj.Free;

end;

// Now copy the text version of the data to form's TMemo component.

if ClipBoard.HasFormat(CF_TEXT) then

   memAsText.PasteFromClipBoard;

end;

procedure TMainForm.btnClearClick(Sender: TObject);

var

i: integer;

begin

// Clear the contents of all controls on the form

for i := 0 to ComponentCount - 1 do

   if Components[i] is TCustomEdit then

     TCustomEdit(Components[i]).Text := '';

end;

end.