独自Recordをクリップボードで出し入れしたい (ID:26583)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

はじめてクリップボード使うんですが、なかなかコンパイルが通らないので教えてください。

type
  TMyRecord = record
    AAAA   :String;
    BBBB   :Integer;
    CCCC   :String;
    DDDD   :Integer;
   end;

var
  ABCD:TMyRecord;
  MyFormat:UINT;

//クリップボード型の宣言
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  MyFormat := RegisterClipboardFormat('MYFORMAT');
end;

//コピー
procedure TfrmMain.actEditCopyExecute(Sender: TObject);
var
  DataHandle:THandle;
  Pnt:Pointer;
begin
  //メモリ確保
  DataHandle := GlobalAlloc(GHND,SizeOf(ABCD));
  //メモリのポインタ取得
  Pnt := GlobalLock(DataHandle);
  //クリップボードへの書き込み
  ClipBoard.Open;
  ClipBoard.Clear;
  ClipBoard.SetAsHandle(MyFormat,DataHandle);
  GlobalUnLock(DataHandle);
  ClipBoard.Close;
end;

//編集貼付
procedure TfrmMain.actEditPasteExecute(Sender: TObject);
var
  DataHandle:THandle;
  Pnt:Pointer;
begin
  //クリップボード読み出し
  if Clipboard.HasFormat(MyFormat) then
  begin
    ClipBoard.Open;
    DataHandle := ClipBoard.GetAsHandle(MyFormat);
    Pnt := GlobalLock(DataHandle);
    ABCD := Pnt;//←このへんがよくわかりません。
    GlobalUnlock(DataHandle);
    Clipboard.Close;
  end;
end;

おかしなところがあったら教えてもらえますか？

←解決時は質問者本人がここをチェックしてください。

戻る