Windows记事本记事本     描述:     用Delphi模仿的Windows记事本 界面和功能都和Windows的记事本一样,是用Memo实现的而不是RichEdit 可以执行以下功能 文件 打开,保存,打印, 页面设置,撤销,复制,粘贴,查找,替换,插入时间日期,转到行, 保存窗体大小 位置 和读取配置信息支持拖拽文件到记事本中...  下载地址:http://download.csdn.net/detail/teststudio/6414215 难点 对文件的新建 打开 保存 另存…

模仿的很不错,在本质上与windows记事本使用了同一个Edit. http://www.cnblogs.com/xe2011/category/524758.htmlhttp://www.cnblogs.com/xe2011/p/3374414.html…

mmoMonitor:Tmemo; mmoMonitor.Lines.ValueFromIndex[0]:=aInfo ; procedure TMainForm.LogInfo(aInfo: string; IsShow: Boolean); begin ctsLog.Enter; try then memServerLog.Clear; if not IsShow then begin then begin then shp1.Brush.Color:=clFuchsia then shp2…

DELPHI基础开发技巧 ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件.DragOver事件.EndDrag事件实现,例如在PANEL上的LABEL: var xpanel,ypanel,xlabel,ylabel:integer; PANEL的Mo…

Delphi Memo的记事本功能           下载地址 : http://download.csdn.net/detail/teststudio/6412883 这个代码实现了Windows记事本的主要功能. 新建,打开,保存,另存,退出. 文件拖拽打开文件 这主要是判断Memo内容是否修改过     unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,…

Delphi XE2 之 FireMonkey 入门(40) - 控件基础: TMemo 值得注意的变化: 1.其父类 TScrollBox 的许多特性也很有用处, 如:   Memo1.UseSmallScrollBars := True; 2.内部使用了一个栈列表管理动作, 现在可以执行多步撤销(UnDo). 3.使用了一个新的结构体 TCaretPosition 来描述当前位置, 并为该结构提供了一个公用的快速构造函数 ComposeCaretPos().   TCaretPosition…

1.直接调用    前面uses加 ShellAPI ShellExecute(Handle, 'open', PChar('calc.exe'), nil, nil, SW_SHOW); 2.直接调用      前面加StdCtrls WinExec('calc.exe',SW_SHOWNORMAL); 3.以此类推: 调用记事本 WinExec('notepad.exe',1); 用绝对目录调用: winexec('c:\windows\calc.exe'); 附件在系统中的目录:win20…

http://www.mamicode.com/info-detail-110813.html delphi中控件位置及自动排版的问题 http://blog.csdn.net/avan_lau/article/details/7045003 Delphi 增删改查小模块(经典示例) http://www.doc88.com/p-666159352776.html…

项目中碰到此问题,之前一直没留意,研究一番用上,以做备忘.参考其它解决方法,不尽完美,自试之,达到效果. 直上代码: type TMemo = class(StdCtrls.TMemo) protected procedure Change; override; end; { TMemo } procedure TMemo.Change; var lc, lh: Integer; cvs: TControlCanvas; begin inherited; cvs := TControlCanva…

unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm2 = class(TForm) Memo1: TMemo; SaveDialog1: TSaveDialog; OpenDia…