參考別人所教得剪貼簿做出每當按下Ctrl + C後就自動在 RichEdit 與 Image 中顯示

請問個位大大們~~該如何做出

每按一次Ctrl C 後，就累加到ListBOX裡，供選取呢？

就像word中剪貼簿中，之前複製過的文字在重複使用．．

以下是我的程式碼：

uses ClipBrd, ShellApi;
var
MangoSiguienteVisor : THandle;
procedure TForm1.FormCreate(Sender: TObject);
begin
MangoSiguienteVisor := SetClipboardViewer(Handle);
end;
procedure TForm1.WMChangeCBCHain(var message: TMessage);
begin
if message.wParam = MangoSiguienteVisor then begin
MangoSiguienteVisor := message.lParam;
message.Result := 0;
end else begin
message.Result := SendMessage(MangoSiguienteVisor, WM_CHANGECBCHAIN,
message.wParam, message.lParam);
end;
end;
procedure TForm1.WMDrawClipboard(var message: TMessage);
begin
message.Result := SendMessage(WM_DRAWCLIPBOARD, MangoSiguienteVisor, 0, 0);
if Clipboard.HasFormat(CF_TEXT) then RichEdit1.Text := Clipboard.AsText
else
if Clipboard.hasFormat(CF_BITMAP) then
with Image1.Picture.Bitmap do
LoadFromClipboardFormat(CF_BITMAP,
ClipBoard.GetAsHandle(CF_BITMAP),0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
ChangeClipboardChain(Handle, MangoSiguienteVisor);
end;

編輯記錄

類似


RichEdit1.Text := RichEdit1.Text #0A#0D Clipboard.AsText;

編輯記錄

謝謝大大的回答

我已用別得方法解決了

listbox1.Items.Add(Clipboard.AsText);