Текущий архив: 2005.03.20;
Скачать: 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 вся ветка

Текущий архив: 2005.03.20;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.029 c