dlg := TForm2.Create(nil);
dlg.ShowModal(procedure(ModalResult: TModalResult)
begin
if ModalResult = mrOK then
begin
.....
end;
时间: 2024-10-06 15:47:41
dlg := TForm2.Create(nil);
dlg.ShowModal(procedure(ModalResult: TModalResult)
begin
if ModalResult = mrOK then
begin
.....
end;