![](https://img-blog.csdnimg.cn/20201014180756757.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
hanks_gao
暂时没有,等以后想起来再补充.
展开
-
Delphi中將本機時間(包含毫秒)更新到數據庫。
procedure recordProcessTime(p_beginTime,p_endTime:TDateTime);var sqlStr:String;begin sqlStr := insert into process_time(start_time,end_time) + values(TO_TIMESTAMP_TZ(:p_Start,原创 2008-12-31 10:21:00 · 1941 阅读 · 2 评论 -
Delphi中使用TRichEdit或TMemo模仿QQ按Ctrl+Enter发送信息,屏蔽换行
最近写了一个小的局域网聊天的小程式,在模仿QQ的按Ctrl+Enter发送信息。 刚开始的写法是这样的:添加一个TMemo控件,名称是memoMessage,在它的onKeyDown事件中这样写: procedure TfrmMain.memoMessageKeyDown(Sender: TObject; var Key: Word; Shift: TShiftSt原创 2009-01-16 16:17:00 · 2206 阅读 · 0 评论