procedure InitFormOnExit(Sender: TObject; var Action: TCloseAction);
begin
if (not (frmDesign.ModalResult = mrOk)) then
EndInitForm := False;
end;
Instead try:
SCAR Code:
procedure InItFormOnExit(Senders : TObject);
begin
frmDesign.modalresult := Mrcancel;
end;
[CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
[CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]
[CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]