Текущий архив: 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.024 c
