Question

“Delphi”怎么点击按钮弹出新窗口？

Answer 1

其实只要熟悉操作流程和每一个按键就比较容易操作。

1. 设置一个按钮，
   点击后弹出另外一个窗体form2。
   procedure TForm1.Button1Click(Sender: TObject);
   var frm2 : TForm2;
   begin
   frm2 := TForm2.Create(nil);
   frm2.Show;
   //或者    frm2.ShowModal;
   frm2.Free ;
   end;

   2.光标移到按钮的时候，光标变为手指图案（handpoint）
   procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
   begin
   Button1.Cursor:=crHandPoint;
   end;