其实只要熟悉操作流程和每一个按键就比较容易操作。
设置一个按钮，
点击后弹出另外一个窗体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;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024