如何编程使得Form完全没有边界?当两个Form拼在一起时好像一个一样。
解决方案 »
- Delphi7对象编辑器中文功能提示
- 关于length(),LeftStr()的问题
- 利用wininet.dll实现FTP客户端,与FTP服务器建立连接会话后进行文件传送,在文件传送过程中出现网络异常中断(重启客户端或断开网线),恢
- 多用户版软件都可能遇到的问题
- 怎样根据一组数据在tchart中画出一条相应的正弦曲线??谢谢
- 菜鸟刚入门,问:当菜单上的代码和按按钮代码相同时,代码放什么地方?
- 升主管了,哈哈,散分理由应该值得谅解,何况马上要过年了,大家高兴高兴! 呵呵 ...
- 100分求mmtools 2.0源码!uuuuuuuuuuuuuuuuuuuuuuuuuuuu ! [email protected]
- 轻度神经衰弱的人能不能搞软件开发,希望有工作经历的人回答
- delphi_6真的到了吗?天津地区可不可以买到?
- 请教一些-------关于绘图的菜鸟问题
- 求助,很简单的问题,100分送上~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
只是不是蓝色的边,
而是像按钮一样的有点立体感的灰白色的边,
而我需要完全没有边。
你看到的是不是Windows的窗体阴影之类?从我自己的程序来看,bsNone是没问题的。
支持!bsNone绝对可以的,如果还看到有边,那应该是系统外观效果处理而导致的,如果真是这样,你就只有放弃用Win窗口,完全自绘。
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons;type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
form2.show;
end;end.Form2窗体的style为fsMDIchild,代码为:unit Unit2;interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm2 = class(TForm)
private
{ Private declarations }
protected
procedure createparams(var params : TCreateParams);override;
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.createparams(var params: TCreateParams);
begin
inherited;
{取消标题栏}
params.Style:= params.Style and (not WS_CAPTION);
end;
end.运行后,Form1和Form2之间就可看到有一个边框隔开。无论怎样改变
form2的属性,这个边框总是无法去掉, 包括设置BorderWidth:=0;
BorderStyle:=bsNone;
BorderIcon:=[];
我原来就是用单窗口的,但是还我需要在其上放许多组件,
而放了组件后,form上就不能随心所欲地画图了。
我原来就是用单窗口的,但是我还需要在其上放许多组件,
而放了组件后,form上就不能随心所欲地画图了。