关于回车代替TAB

Ctrl+O+U(切换选定代码的大小写)

----------------------------

Ctrl+K+E(选定代码转为小写)

------------------------------

Ctrl+K+F(选定代码转为大写)

------------------------------

如何自定义方法

-------------------

var

Method:TMethod;

Evt:TNotifyEvent;

begin

  Method.Code:=MethodAddress('Button1Click');

  Method.Data:=Self;

 Evt:=TNotifyEvent(Method);

 Evt(Sender);

end;

--------------------------

在流使用中有专门用于流操作的TReader 和 TWriter类可以使用,如下

var

  Stream:TStream;

  W:TWtriter;

begin

  Stream:=TFileStream.Create('C:\TEMP\Test.Txt',fmCreate);

  W:=TWriter.Create(Stram,1024);

  W.WriteInteger(12);

  W.WriteString('Hello Word');

  W.Free;

  Stream.Free;

end; 

------------------------------------------------------------------

 文件的压缩与解压使用TCompressStream与TDeCompressStream

--------------------------------------------------------------

回车代替TAB

 Perform(cm_DialogKey,VK_Tab,0) ;

这个CM_DialogKey消息是一条未公布的内部Delphi消息

--------------------------------------------------------

我惯用MessageBox其实MessageDlg可以达到同样的效果

--------------------------------------------------------

if MessageDlg('Are You Sure You Want To Exit',mtConfirmation,[mbYes,mbNo],0) in [mrNo,mrCancle] then 事件处理