2,507
社区成员
发帖
与我相关
我的任务
分享关于对话框的问题？HELP ME！！
我写了一个小程序，用了MEMO控件
1、加入了颜色、字体对话框控件
但我应用字体和颜色效果时，它全部应用了，而不是对所选文字应用效果
请问如何实现？？
2、还有我打开一个文本文件后，我改动了内容，点保存，不是一直覆盖保存下去
而是出现保存对话框，请问如何解决？
请各位指点一下，谢谢
1、加入了颜色、字体对话框控件
但我应用字体和颜色效果时，它全部应用了，而不是对所选文字应用效果
请问如何实现？？
2、还有我打开一个文本文件后，我改动了内容，点保存，不是一直覆盖保存下去
而是出现保存对话框，请问如何解决？
请各位指点一下，谢谢
...全文
请发表友善的回复…
发表回复
miky 2004-05-07
- 打赏
- 举报
老大，设置了也不行哎，保存时也不是覆盖
我以为你要提示呢，不要就False
我以为你要提示呢，不要就False
qizhanfeng 2004-05-06
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile('d:\1.txt');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.SaveToFile('d:\1.txt');///这句保存到修改的文件没错呀，可以覆盖
end;
begin
memo1.Lines.LoadFromFile('d:\1.txt');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.SaveToFile('d:\1.txt');///这句保存到修改的文件没错呀，可以覆盖
end;
xie21cn 2004-05-06
- 打赏
- 举报
老大，设置了也不行哎，保存时也不是覆盖
dengyun1981 2004-05-05
- 打赏
- 举报
同意楼上的，
miky 2004-05-05
- 打赏
- 举报
1 Memo就是这样，想改一部分？没门！不过你可以不用他，用Richedit;
2 SaveDialog有Options选项，把他下面的ofOverWritePrompt设为True就OK了。
2 SaveDialog有Options选项，把他下面的ofOverWritePrompt设为True就OK了。
