- 博客(2)
- 收藏
- 关注
RSS订阅原创 使TEdit只接受数字输入
使TEdit只接受数字输入：procedure TForm1.FormCreate(Sender:Tobject);var w1:Integer;begin w1:=GetWindowLong(Edit1.Handle,GWL_STYLE); SetWindowLong(Edit1.Handle,GWL_STYLE,w1 or ES_NUMBER);end;只接受数字和小数点输入：proced
2006-07-03 14:01:00
753
转载 Application.MessageBox用法
Application.MessageBox 是 TApplication 的成员函数，宣告如下：function TApplication.MessageBox(const Text, Caption: PChar; Flags: Longint): Integer;引数： 1. Text：要显示的讯息 2. Caption：讯息视窗的标题列文字 3. Flags：讯息旗标 3.1.
2006-07-03 14:00:00
1061
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人