On Friday 19 August 2011 12:14:48 Julio Jiménez wrote:
> Yes, I understand it.. just wondering why it got stucked in auto-cancel not
> allowing to change the data.
>
"
function twindow.close: boolean;
begin
if fmodalresult = mr_none then begin
fmodalresult:= mr_windowclosed;
end;
fowner.beforeclosequery(fmodalresult);
result:= (fmodalresult <> mr_none) and fowner.canparentclose(nil);
<<<----- abort
if result then begin
deactivate;
fowner.hide;
destroywindow;
end
else begin
fmodalresult:= mr_none; <<<<---- will not be done in case of abort
end;
end;
procedure twindow.setmodalresult(const Value: modalresultty);
begin
fmodalresult:= Value;
if (value <> mr_none) {and (tws_modal in fstate)} then begin
close();
end;
end;
"
Martin
_______________________________________________
MSEide-MSEgui-talk mailing list
MSEide-MSEgui-talk@lists.berlios.de
https://lists.berlios.de/mailman/listinfo/mseide-msegui-talk
