Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
ВнизКак из clipboarda достать html ссылку? Найти похожие ветки
← →
Serg455 (2002-09-18 23:59) [0]Те если копируешь ярлык в клипбоард, то чтобы при нажатии допустим кнопки от отображался в edit1, (если является инетовской ссылкой)
← →
McSimm (2002-09-19 14:19) [1]Возможно, так:
uses Clipbrd, ShlObj;
procedure TForm1.Button1Click(Sender: TObject);
var
I, L: Integer;
S: String;
begin
for I := 0 to Clipboard.FormatCount - 1 do
begin
SetLength(S, Length(CFSTR_SHELLURL)+1);
L := GetClipboardFormatName(Clipboard.Formats[I], PChar(S), Length(CFSTR_SHELLURL)+1);
SetLength(S, L);
if S = CFSTR_SHELLURL then
begin
Edit1.Text := Clipboard.AsText;
Break
end
end
end;
← →
REA (2002-09-19 14:42) [2]А HasFormat не получится вызвать?
← →
McSimm (2002-09-19 14:54) [3]Насколько я понимаю - нет.
HasFormat применим к стандартным форматам (CF_BITMAP и т.п.)
Форматы, числовое значение которых лежит в диапазоне 0xC000-0xFFFF регистрируются приложениями функцией RegisterClipboardFormat. Их числовое значение заранее неизвестно.
← →
Serg455 (2002-09-20 02:24) [4]Все работает, но только один раз.Операция выполняется при создании формы, а после того как форма закрывается и вновь запускается edit1 пустой:( и что бы не было в клипборде, edit
всегда будет пустым при появлении формы) Как исправить?
← →
McSimm (2002-09-20 10:41) [5]Скорее всего форма создается один раз.
А закрытие/открытие - это hide/show.
В зависимости от задачи можно пойти несколькими путями.
1. Вызывать процедуру всякий раз, когда это требуется;
(например при показе формы)
2. Встроиться в цепочку clipboard viewer и реагировать на изменения в клипбоард.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c