-read
procedure TForm1.Button1Click(Sender: TObject);
begin
if clipBoard.hasFormat(CF_TEXT) then
Memo1.PasteFromClipboard;
end;
--------------------------------------------------
-write
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;
-------------------------------------------------------
-clear
procedure TForm1.Button3Click(Sender: TObject);
begin
clipboard.Clear;
end;
---------------------------------------------------------
-disable clipboard
Procedure DisableClip(hWnd:THandle);
begin
OpenClipboard(hWnd);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenClipboard (Application.MainForm.Handle);
end;
---------------------------------------------------------
-enable clipboard
procedure TForm1.Button2Click(Sender: TObject);
begin
CloseClipboard;
end;