高分求高手(100分)

请先理解我要作的东西。在excel的工具菜单下，点击单变量求解。会看到一个花按钮。
点击花按钮，窗体就收缩成只有一个edit的小窗体，而且窗体位置保持不懂，再点击
花按钮，它又还原成原来的样子。我的问题就是如何实现花按钮的这一功能。第二个要求
更高一点：那就是在excel中不用点击花按钮而是直接去选择单元格，也能实现这一功能，
并且相应的范围会出现在edit框内。
请各位献计献策，能做到什么程度就什么程度。

各位，怎么不进来看一下。不会的话，up一下也有分。

对于第一个问题，可在程序中使用代码实现按键的显示与隐藏。如果花按钮不多的话，可
以做几个TabControl，放入相应的控件。根据点击的花按钮，显示不同的TabControl。
第二个问题还没有想好。

hanyongjian：你可以试验一下，用代码实现按键的显示与隐藏几乎是不可能有这种效果的。
而且我的窗体里控件很多，是不是语句太多了，另外，我有很多这样的窗体，里面控件不相同。
是不是会很麻烦呢。我不需要tabcontrol。谢谢您的关心。请再考虑。
各位进来看看。100大元没有人要，真是伤心啊！

第一个问题 在花按钮的Click事件里写代吗。
第二个问题 在主Form的Click事件里写代吗。
很容易

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

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Button1: TButton;
g3: TGroupBox;
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
ScrollBox1: TScrollBox;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
fh,fw:integer;
el,et:integer;
flag:integer;
bl,bt:integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
if flag=0 then
begin
fh:=form1.Height;
fw:=form1.Width;
el:=edit1.Left;
et:=edit1.Top;
edit1.left:=0;
edit1.top:=0;
bl:=button1.Left;
bt:=button1.Top;
button1.Top:=0;
button1.left:=edit1.Width-button1.Width;
form1.Height:=edit1.Height+25;
form1.Width:=edit1.Width+10;
g3.Visible:=false;
flag:=1;
end
else
begin
form1.Height:=fh;
form1.Width:=fw;
edit1.Left:=el;
edit1.top:=et;
button1.left:=bl;
button1.top:=bt;
g3.Visible:=true;
flag:=0;
end

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
flag:=0;
end;

end.

把FORM的横竖滚动条都取消掉

jueqing 的办法是可行的。可是要编成一个过程才好。有那位能办到呢。以方便其他的窗体
也能使用该方法。

真是痛苦，竟然没有人回答我的问题

自己up

用vba编程应该没有问题

多人接受答案了。