Ещё раз про HTML форму, люди помогите реально, дайте путный совет.

← →
Ghost12 (2002-03-26 14:43) [2]

Да вот ещё в этом коде присутствует компонент WebBrowser, а у меня он не был проинстален...Ну как так можно , надо было написать мол если хочешь использовать этот код проинсталь компонент ёмоё а то дадут кусок кода и мути его как хошь

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
Coll : IHTMLElementCollection;
Doc: IHTMLDocument2;
i: integer;
begin
Doc:= (WebBrowser1.Document as IHTMLDocument2);
if Doc<>nil then
begin
Coll:=Doc.All.Tags("INPUT") as IHTMLElementCollection;
for i:=0 to Coll.length-1 do
with (Coll.item(i,varEmpty) as IHTMLInputElement) do
if type_="text" {тип элемента INPUT} then
//if name="id" {имя элемента INPUT} then
Caption:=value;
end;
end;

Ещё раз про HTML форму, люди помогите реально, дайте путный совет. Найти похожие ветки