Mega Code Archive

 

Categories / Delphi / Examples

 

Clipboard [kopyala - yapıştır olayı]

-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;