Question

delphi：点击按钮，弹出新窗体

这个按钮代码该怎么写啊
设置一个按钮，
点击后弹出另外一个窗体form2。

在线等，拜托了~

拜谢
还有一个问题要麻烦啦
就是我想当光标移到按钮的时候，光标变为手指图案（handpoint）
我的代码是：
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Cursor:=crHandPoint;
end;

但是是在点击以后才改变。。。该怎么改啊

Answer 1

设置一个按钮，
点击后弹出另外一个窗体form2。
procedure TForm1.Button1Click(Sender: TObject);
var frm2 : TForm2;
begin
frm2 := TForm2.Create(nil);
frm2.Show;
//或者 frm2.ShowModal;
frm2.Free ;
end;
光标移到按钮的时候，光标变为手指图案（handpoint）
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Button1.Cursor:=crHandPoint;
end;

Answer 2

动态创建窗体
Var
NewForm:TForm1;
begin
NewForm:=TForm1.Create(Nil);
NewForm.Show;
end;

Answer 3

先在控件中拖拽按钮控件到from1，再在按钮OnClick事件中调用form2的formshow方法。