Application.CreateForm(TForm,frmReg);
with frmReg do
begin
Position := poScreenCenter;
BorderStyle := bsDialog;
Height := 310;
Width := 425;
//OnClose := 这段代码如何写?
ShowModal;
end;
with frmReg do
begin
Position := poScreenCenter;
BorderStyle := bsDialog;
Height := 310;
Width := 425;
//OnClose := 这段代码如何写?
ShowModal;
end;
procedure XXXX(Sender: TObject; var Action: TCloseAction);
begin这里写减半时要执行什么.
end;Width := 425;
OnClose :=XXXX