2010 年 10月 29 日随笔档案 - 巅枫

2010年10月29日

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; MainMenu1: TMainMenu; N1: TMenu... 阅读全文

posted @ 2010-10-29 21:21 巅枫阅读(576) 评论(0) 推荐(0) 编辑

Memo 的当前行、当前列与当前字符

摘要： procedure TForm1.Memo1Click(Sender: TObject);begin Text := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X, Memo1.CaretPos.Y]);end;//用 API 实现procedure TForm1.Memo1Click(Sender: TObject);var LineY,LineX: ... 阅读全文

posted @ 2010-10-29 20:51 巅枫阅读(330) 评论(0) 推荐(0) 编辑

Edit 的使用

摘要： //让 Edit 只接受数字,通过编辑Edit控件的onKeyPress事件实现//方法1：阅读全文

posted @ 2010-10-29 20:05 巅枫阅读(637) 评论(0) 推荐(0) 编辑

窗体相关操作-显示窗口上组件个数

摘要： //包含控件数://遍历窗体上的控件: 阅读全文

posted @ 2010-10-29 18:56 巅枫阅读(324) 评论(0) 推荐(0) 编辑