| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 数据库专区 斑竹:liumazi,waterstone | |||||
| 作者： |
|
2004/3/13 12:35:24 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 大哥们： 1、怎么样让DateTimePicker跟系统时间一致?? 2、怎么样让我的程序在启动后windows任务栏自动隐藏?? 请教！！！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/13 13:01:12 | ||||
| 1楼： | unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; D: TDateTimePicker; SB: TStatusBar; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin d.DateTime:=now; end; procedure TForm1.Timer1Timer(Sender: TObject); begin sb.Panels[0].Text:=datetimetostr(now); end; end. ---------------------------------------------- 你好 |
|||||
| 作者： |
|
2004/3/13 13:02:57 | ||||
| 2楼： | 同上 ---------------------------------------------- 你好 |
|||||
| 信息 |
| 登陆以后才能回复 |
