Situation (VCL, FNC):
-
Windows 11
-
Delphi 11, Update 1, 28.0.44500.8973
-
MainForm with FNCPlanner
-
Simple second form for editing items e.g. ItemForm
Now, when i use following code, from
procedure TfrmSimpPlanMain.CreateSimpItem;
var
frm: TfrmNewItem;
simpitem: TSimpPlanItem;
begin
frm := TfrmNewItem.Create(nil);
try
.....
.....
if frm.ShowModal = mrOk then
begin
.....
.....
end;
finally
frm.Free;
end;
end;
from
TMSFNCPlanner1ItemDblClick(Sender: TObject; AItem: TTMSFNCPlannerItem);
then strange things happen, ifor example, click the upperright cross (close app) for the mainform, i have to click it twice, before the formclosequery is triggered.
if i call the same method from a normal buttonclick, then the strange behaviours does not appear.
Strange thing is also the ItemHelpers (start en end time) appear, after returnig from the doubleclickitem
test project as attachemnt
try to open the modal form with the normal buttons, or by doubleclicking the planner item
TestModal.zip (121.3 KB)