2004 年 4月 16 日随笔档案 - cjsh

2004年4月16日

摘要： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);var CurText: String; CurPos, CurLng: integer;begin if key ='''' then begin key := #0; CurText := TEdit(Sender).Text; CurPos ... 阅读全文

posted @ 2004-04-16 13:18 cjsh 阅读(1029) 评论(0) 推荐(0) 编辑

输入“\”或“.”的时候弹出选择对话框，让你选择？

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; ListBox1: TListBox; procedure Memo1K... 阅读全文

posted @ 2004-04-16 13:15 cjsh 阅读(839) 评论(0) 推荐(0) 编辑