Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.30;
Скачать: CL | DM;

Вниз

Как из 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-98155
zam2000
2002-09-17 18:33
2002.09.30
Сохранение динамической инфы в файл.


4-98406
o_viz2000
2002-08-15 09:27
2002.09.30
Передать нажатие клавиш в ДОС-окно


14-98289
savva
2002-09-03 10:40
2002.09.30
Про поиск на сайте - есть повод задуматься...


3-97992
fat_1
2002-09-09 21:27
2002.09.30
D5+MSSQL2000


7-98369
Kotka
2002-07-18 17:38
2002.09.30
Как вывести эту штуку...