Скачать: CL | DM;

Работа с ClipBoard   Найти похожие ветки 

← →
SergP ©   (2005-03-02 22:45) [0]

Нужно вытащить в переменную string текст находящийся в буфере обмена.
Подскажите как?

---

← →
alex_shkut ©   (2005-03-02 22:57) [1]

procedure TForm1.Button1Click(Sender: TObject);

begin
if Clipboard.HasFormat(CF_TEXT) then
 Edit1.Text := Clipboard.AsText
else
 MessageDlg("There is no text on the Clipboard", mtInformation,
       [mbOK],0);

end;
Кстати, взято из хелпа к Делфи. Открываем Delphi Help, набираем TClipboard, свойство AsText, и наконец Delphi Example. (:-) краткое руководство по пользованию Help-om)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.028 c