CloseQuery is somehow called :
-------------------------
procedure treceditfo.closequery(const sender: tcustommseform;
var amodalresult: modalresultty);
begin
with viewform.getdataset do begin
if (state <> dsBrowse) {and (changecount > 0)} then begin
if (amodalresult = mr_cancel) then begin
cancelupdate; // don't write unconfirmed data to the DB
showmessage('Изменения к последней записи
сброшены','Информация');
end else begin
showmessage('Запишите или отмените незаписанные изменения перед
закрытием этой формы!','НЕЗАПИСАННЫЕ ИЗМЕНЕНИЯ'); // <<<<<<<<< HERE
amodalresult:= mr_none;
end;
end;
---------------
The message box is displayed although shouldn't at this stage.
------------------------------------------------------------------------------
November Webinars for C, C++, Fortran Developers
Accelerate application performance with scalable programming models. Explore
techniques for threading, error checking, porting, and tuning. Get the most
from the latest Intel processors and coprocessors. See abstracts and register
http://pubads.g.doubleclick.net/gampad/clk?id=60136231&iu=/4140/ostg.clktrk
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
