在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
1、使Form没有标题栏和边框,只需要设置BorderStyle:=bsNode; 2、使Form透明,即只显示控件,假设Form尺寸:300*400,控件尺寸:200*200; a、procedure TForm1.FormCreate(Sender: TObject); begin 只是使Form透明了,但所占据的空间还在,即点击Form的透明区域,其他应用获取不到焦点,鼠标其实还在From上。 b、设置Form的Color和TransparentColorValue属性值相同,并且使TransparentColor值为True。 该方法可以使Form真正的透明,即使点击Form的透明区域,其他的应用也可以获得焦点,就好像透明区域真的不存在一样。 3、设置窗体拖动,并非只有将鼠标放到标题栏才可以。 procedure TLoginForm.Panel1MouseDown(Sender: TObject; Button: TMouseButton; //以下两句,缺一不可。 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论