摘要：
设置前先获得Memo的字体属性并设置给FontDialog 然后再设置MEMO的字体属性 //设置Memo的字体属性 procedure TForm1.mni_FontClick(Sender: TObject);beginwith TFontDialog.Create(nil) dobeginFont:=Memo1.Font; Options := ... 阅读全文
posted @ 2013-10-16 21:58
XE2011
阅读(700)
评论(0)
推荐(0)
摘要：
TOpenDialog procedure TForm1.Button1Click(Sender: TObject);beginwith TOpenDialog.Create(nil) dobeginFilter:='Text files (*.txt)|*.txt)|All Files(*.*)|*.*';if Execute then... 阅读全文
posted @ 2013-10-16 21:54
XE2011
阅读(242)
评论(0)
推荐(0)
摘要：
TSaveDialog
预览 实现过程 动态创建和使用保存文件对话框 procedure TForm1.Button1Click(Sender: TObject);beginwith TSaveDialog.Create(nil) dobeginFilter:='Text files (*.txt)|*.txt)|All... 阅读全文
posted @ 2013-10-16 21:53
XE2011
阅读(801)
评论(0)
推荐(0)
摘要：
Delphi中一些常用的组合键值CTRL+A: #1CTRL+B: #2CTRL+C: #3CTRL+D: #4CTRL+E: #5CTRL+F: #6CTRL+G: #7CTRL+H: #8CTRL+I: #9CTRL+J: #10CTRL+K: #11CTRL+L: #12CR: #13 //回车M ?CTRL+N: #14CTRL+O: #1... 阅读全文
posted @ 2013-10-16 21:23
XE2011
阅读(495)
评论(0)
推荐(0)
摘要：
TColorDialog
预览 实现过程 动态创建和使用颜色对话框function ShowColorDlg:TColor;begin with TColorDialog.Create(nil) do begin Options :=[cdFullOpen,cdPreventFullOpen,cdShowHelp,cdSolidColor,... 阅读全文
posted @ 2013-10-16 18:08
XE2011
阅读(490)
评论(0)
推荐(0)
浙公网安备 33010602011771号