Mam kodzik w CloseQuery:
var
BT: ShortInt;
begin
if Cansave = true then
begin
if SaveDialog1.FileName = <font color="blue">''</span> then
begin
BT := Application.MessageBox(<font color="blue">'Czy chcesz zapisać zmiany </span><font color="blue">w Dok1?'</span>, <font color="blue">'Pytanie'</span>, MB_YesNoCancel + MB_IconWarning);
if BT = ID_Yes then
btnSaveClick(sender);
if BT = ID_NO then
Canclose := True;
if BT = ID_CANCEL then
CanClose := False;
end;
if SaveDialog1.FileName <font color="blue">'' </span>b>then
BT := Application.MessageBox(<font color="blue">'Czy chcesz zapisać zmiany w ' </span>+ SaveDialog1.fileName + <font color="blue">'?'</span>, <font color="blue">'Pytanie'</span>, MB_YesNoCancel + MB_IconWarning);
if BT = ID_Yes then
btnSaveClick(sender);
if BT = ID_NO then
Canclose := True;
if BT = ID_CANCEL then
CanClose := False;
end;
I Zaznacza mi bład tu:
BT := Application.MessageBox(<font color="blue">'Czy chcesz zapisać zmiany w ' </span>+ SaveDialog1.fileName + <font color="blue">'?'</span>, <font color="blue">'Pytanie'</span>, MB_YesNoCancel + MB_IconWarning);
a kursor ustawia po Pytanie. Sorry, że ni pamiętam treści komunikatu.
Ale chyba wiecie o co mi chodzi? O to, że jeśli savedialog będzie miał jakąś filename to, żeby zadał pytanie: czy zapisać zamiany + ten filename. Jak to zrobić?