我撰寫一個記事本程式 然后我使用的SaveDialog 控制元件，為什么我保存Mome里面的檔案的時候，我不管點擊保存按鈕 還是點擊取消按鈕 都會把內容保存出來，如何判斷我點的到底是保存還是取消呢，代碼我不會寫 希望高手告訴下菜鳥，以下是我的代碼：
procedure TForm1.N3Click(Sender: TObject);
begin
if bj.Lines.Text ='' then
MessageBox(Handle,'保存內容不能為空','Warning:',MB_OK or MB_ICONWARNING )
else
begin
dlgSave1.Execute;
bj.Lines.SaveToFile(dlgSave1.FileName );
end;
end;
uj5u.com熱心網友回復：
dlgSave1.Execute;bj.Lines.SaveToFile(dlgSave1.FileName );
-->
if dlgSave1.Execute then
bj.Lines.SaveToFile(dlgSave1.FileName );
uj5u.com熱心網友回復：
procedure TForm1.Button1Click(Sender: TObject);
begin
if Memo1.Text ='' then
MessageBox(Handle,'保存內容不能為空','Warning:',MB_OK or MB_ICONWARNING )
else begin
if MessageBox(0,'同意保存','提示',MB_OKCANCEL )=idOK then
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName );
end;
end;
上述代碼，應該解決問題。
uj5u.com熱心網友回復：
if dlgSave1.Execute thenbj.Lines.SaveToFile(dlgSave1.FileName );
uj5u.com熱心網友回復：
樓上幾位大蝦已說明。要先判斷dlgSave1是否執行，點保存就是說明執行。uj5u.com熱心網友回復：
關鍵的技術就是判斷是否要執行保存
if SaveDialog1.Execute then
uj5u.com熱心網友回復：
我一直都是這樣寫的
if SaveDialog1.Execute then
Begin
//這里寫處理代碼，最后用showmessage等陳述句彈出提示對話框。
End
uj5u.com熱心網友回復：
大家都要用標準的代碼寫法，這樣有利于操作規范！uj5u.com熱心網友回復：
procedure TForm1.Button1Click(Sender: TObject);begin
if Memo1.Text ='' then
begin
MessageBox(Handle,'保存內容不能為空','Warning:',MB_OK or MB_ICONWARNING );
exit;
end;
if SaveDialog1.Execute then
if SaveDialog1.FileName='' then //沒有輸入檔案名
Exit;
if MessageBox(0,'同意保存','提示',MB_OKCANCEL )=idOK then
try
Memo1.Lines.SaveToFile(SaveDialog1.FileName );
MessageBox(Handle,'保存成功','Warning:',MB_OK or MB_ICONWARNING );
except
MessageBox(Handle,'保存失敗','Warning:',MB_OK or MB_ICONWARNING );
end;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/84769.html
標籤：VCL組件開發及應用