dlg := TForm2.Create(nil);
dlg.ShowModal(procedure(ModalResult: TModalResult)
begin
if ModalResult = mrOK then
begin
.....
end;
时间: 2024-08-03 17:34:04
dlg := TForm2.Create(nil);
dlg.ShowModal(procedure(ModalResult: TModalResult)
begin
if ModalResult = mrOK then
begin
.....
end;