新手问题集合！ （网速慢，干脆一次问完） 快来抢答啊！ ^_^

Question

本人刚学DELPHI。这里做个小程序，学习一下。
qq群搜索
http://group.qq.com/cgi-bin/group_search?start=0&mode=2&keyword=delphi
目前会的就这么多：
==================================================================
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, OleCtrls, SHDocVw, ExtCtrls;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    WebBrowser1: TWebBrowser;
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
   WebBrowser1.Navigate('http://group.qq.com/cgi-bin/group_search?start=0&mode=2&keyword='+ Edit1.Text);
   memo1.Text := IdHTTP1.Get('http://group.qq.com/cgi-bin/group_search?start=0&mode=2&keyword='+ Edit1.Text);
end;end.
============================================================================3个问题（所以99分~~）1.请问如何向WebBrowser中的表单填入数据，使其自动填写并且完成提交（就是怎么让程序点确定）？
2.memo1.Text获得内容后，如何把里边的所有群号提取出来？放到另一个memo里 或者存为文件也可。
3.当鼠标指向WebBrowser中的连接时，如何在状态栏内显示该连接？

Answer 1

2:for i:=0 to memo1.lines.count-1 do 
begin
s:=memo1.lines.strings[i];
//根据规律提s里的号就行了
end;
3:写在onmousemove里

Answer 2

第2个我按照楼上的方法，为什么memo2里什么都没有？
第3个能说具体点吗？我刚开始学
谢谢楼上的了var
  Form1: TForm1;
  s:string;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
   WebBrowser1.Navigate('http://group.qq.com/cgi-bin/group_search?start=0&mode=2&keyword='+ Edit1.Text);
   memo1.Text := IdHTTP1.Get('http://group.qq.com/cgi-bin/group_search?start=0&mode=2&keyword='+ Edit1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
  var
    i:LongInt;
    j:LongInt;
    p:integer;
begin
      j:=0;
      for i:=0 to memo1.lines.count-1 do
      begin
      s:=memo1.lines.strings[i];
      p:=pos('group_join?gid=',s) + Length('group_join?gid=');//获取群号前的位置
      s:=copy(s,p,130);
      p:=pos('&step=',s);
      memo2.lines.strings[j]:=Copy(s,1,p -1);
      j:=j+1;
      //根据规律提s里的号就行了
      end;
end;end.

Answer 3

第3个是onmousemove事件,当鼠标移动时触发此事件....第2个就是简单的遍历,读出memo里的内容...

Answer 4

第2个解决了
第3个能写下代码吗？
本人刚开始学DELPHI
多多指教
谢谢！