Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 024 • TDictionary Custom Sort 6 129 • Fast Watermark Sources 5 926 • 3D Designer 8 777 • Sik Screen Capture 6 256 • Patch Maker 6 680 • Айболит (remote control) 6 674 • ListBox Drag & Drop 5 530 • Доска для игры Реверси 95 700 • Графические эффекты 6 901 • Рисование по маске 6 121 • Перетаскивание изображений 5 063 • Canvas Drawing 5 431 • Рисование Луны 5 146 • Поворот изображения 4 692 • Рисование стержней 3 307 • Paint on Shape 2 547 • Генератор кроссвордов 3 437 • Головоломка Paletto 2 749 • Теорема Монжа об окружностях 3 546 • Пазл Numbrix 2 328 • Заборы и коммивояжеры 3 014 • Игра HIP 1 971 • Игра Go (Го) 1 888 • Симулятор лифта 2 244 • Программа укладки плитки 1 952 • Генератор лабиринта 2 397 • Проверка числового ввода 2 081 • HEX View 2 407 • Физический маятник 2 043

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

Найти все линки в WEBBrowser

Депрессия - это когда включаешь интернет и не знаешь куда пойти.

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: Integer; 
begin 
  for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do 
    Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i)); 
end;

Найти все линки в WEBBrowser

Похожие по теме исходники