不用把label设成透明的属性,
解决方案 »
- 关于后台服务启动的次序
- 睡前一帖,优蛋是delphi开发的,他的界面很有兴趣 图
- 求一个 ADOCommand 或者 ADOStoredproc 使用 存储过程 的 实例
- 请问如何把一个TreeView的所有节点完整的拷贝到另一个TreeView中表现?
- tadoquery 访问大规模数据库(记录》100万)急!!!!愿给所有分数
- 请教——关于文件中特定内容的提取
- 谁有编辑GIF动画的程序源代码或是控件?高分换取或出RMB购买!
- 怎样把一个表一栏里的内容加入到combobox里?解决就给分!
- 高人指点100分
- 请教………关于搜索手机号所属区域的算法!
- 连接SQL数据库的问题
- 这个程序我还是弄不出来,发的消息我知道,可是我不知道怎么查找
var
rHrgn : Hrgn;
begin
rHrgn := CreateEllipticRgn(20,30,Width - 20,Height - 20);
SetWindowRgn(handle,rHrgn,True);
end;procedure TFmCurrentDataTime.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := WS_EX_TRANSPARENT;end;procedure TMainForm.N55Click(Sender: TObject);
begin
FmCurrentDataTime := TFmCurrentDataTime.Create(Self);
try
FmCurrentDataTime.lbDateTime.Caption := CurrentDateTimeStr;
FmCurrentDataTime.ShowModal;
finally
FmCurrentDataTime.Free;
end;
end;procedure TFmCurrentDataTime.Timer1Timer(Sender: TObject);
begin
Cursor := crDefault;
lbDateTime.Caption := MainForm.CurrentDateTimeStr;
MainForm.StatusLine.Panels[0].Text := MainForm.CurrentDateTimeStr;
Application.ProcessMessages;
Cursor := crDefault;
end;你们是怎么试的阿,能详细说一下吗?