请给我一个思路！！！ ——紧急！！(300分)

大家好。。。
用Delphi 程序来实现象网页提交那样的动作，例如提交到一个特定的 jsp 页面，
然后 这个jsp 页面执行一系列动作后，根据处理的结果不同返回不同的简单的参数值。

请各位做过这个方面的大虾给我提供一个思路，用什么控件，使用什么Method ?
大致讲讲实现的方法，要是有一段小代码就更好了。

谢谢。

你看看mastering delphi6的第11章的一个例程
ListDialDemo
它将你要的这个功能封装成了一个控件

52free ： 可是我没有本书呀。

能给我想个别的方法吗？ 我只是想做个简单的例子，然后 那个jsp 程序才是我的任务。

给你一个单元文件吧，jsp我不懂
只是不知道这个单元能不能给你一些思路

unit MdListDial;

interface

uses
SysUtils, Windows, Messages, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls,
Buttons;

type
TMdListDialog = class (TComponent)
private
FLines: TStrings;
FSelected: Integer;
FTitle: string;
function GetSelItem: string;
procedure SetLines (Value: TStrings);
function GetLines: TStrings;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function Execute: Boolean;
property SelItem: string
read GetSelItem;
published
property Lines: TStrings
read GetLines write SetLines;
property Selected: Integer
read FSelected write FSelected;
property Title: string
read FTitle write FTitle;
end;

type
TMdListBoxForm = class(TForm)
ListBox1: TListBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure ListBox1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

{$R *.DFM}

procedure Register;

implementation

// component methods

constructor TMdListDialog.Create(AOwner: TComponent);
begin
inherited Create (AOwner);
FLines := TStringList.Create;
FTitle := 'Choose a string';
end;

destructor TMdListDialog.Destroy;
begin
FLines.Free;
inherited Destroy;
end;

function TMdListDialog.GetSelItem: string;
begin
if (Selected >= 0) and (Selected < FLines.Count) then
Result := FLines [Selected]
else
Result := '';
end;

function TMdListDialog.GetLines: TStrings;
begin
Result := FLines;
end;

procedure TMdListDialog.SetLines (Value: TStrings);
begin
FLines.Assign (Value);
end;

function TMdListDialog.Execute: Boolean;
var
ListBoxForm: TMdListBoxForm;
begin
if FLines.Count = 0 then
raise EStringListError.Create ('No items in the list');
ListBoxForm := TMdListBoxForm.Create (nil);
try
ListBoxForm.ListBox1.Items := FLines;
ListBoxForm.ListBox1.ItemIndex := FSelected;
ListBoxForm.Caption := FTitle;
if ListBoxForm.ShowModal = mrOk then
begin
Result := True;
Selected := ListBoxForm.ListBox1.ItemIndex;
end
else
Result := False;
finally
ListBoxForm.Free;
end;
end;

// form methods

procedure TMdListBoxForm.ListBox1DblClick(Sender: TObject);
begin
ModalResult := mrOk;
end;

procedure Register;
begin
RegisterComponents('Md', [TMdListDialog]);
end;

end.

我还没有悟出有关系没有。

快呀！！
　

帮你up一下

up

算了。