| 订阅 | 在线投稿

分享

2006-12-16 17:27:50  编辑来源:互联网  国际版  评论

 

 

　　我 想 做 一 个 透 明 的 Form

　　不 是 用 一 个 bmp外 加 一 个 mask的 那 种 。 也 不 用 控 件 ， 在 VB中 可 以

　　使 用 几 个 参 数 即 可 ， （ 可 在 这 里 找 到 QA000129

　　“如何使窗口透明”） ， 但 相 同 的 办 法 用 在 delphi中 却 不 行 。 请 问 如 何 做 一 个 这 样 的 form？ 简

　　单 ， 代 码 少 ， 不 用 控 件 。

　　

　　Delphi中 可 以 这 样 做 ：

　　procedure TForm1.FormCreate(Sender: TObject);

　　begin Brush.Style:= bsClear;

　　BorderStyle := bsNone

　　end;

 

 

 

我 想 做 一 个 透 明 的 Form 不 是 用 一 个 bmp外 加 一 个 mask的 那 种 。 也 不 用 控 件 ， 在 VB中 可 以 使 用 几 个 参 数 即 可 ， （ 可 在 这 里 找 到 QA000129 “如何使窗口透明”） ， 但 相 同 的 办 法 用 在 delphi中 却 不 行 。 请 问 如 何 做 一 个 这 样 的 form？ 简 单 ， 代 码 少 ， 不 用 控 件 。 Delphi中 可 以 这 样 做 ： procedure TForm1.FormCreate(Sender: TObject); begin Brush.Style:= bsClear; BorderStyle := bsNone end;