Работа с 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)

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