procedure TForm1.Button3Click(Sender: TObject);begin if (csOpaque in ControlStyle) then ShowMessage('不透明') else ShowMessage('透明') // Form透明end; procedure TForm1.Button3Click(Sender: TObject);begin if (csOpaque in Panel1.ControlStyle) then ShowMessage

Delphi ActiveX Form的使用实例 By knityster 1. ActiveX控件简介 ActiveX控件也就是一般所说的OCX控件,它是ActiveX技术的一部分. ActiveX控件可以被集成到很多支持ActiveX的应用当中去,或者直接用来扩展应用的功能,这些支持ActiveX的应用包括C++ Builder.Delphi.Visual dBASE. Visual Basic.Visual C++.Internet Explorer.Netscape Navigator等

通过Form的Position属性可设置窗体的初始位置,如选择DesktopCenter为桌面中心,ScreenCenter为屏幕中心,等等. 这个属性在很多时候简化了程序代码. 但是,如果设置了position为ScreenCenter和DesktopCenter等,在窗体oncreate和onshow事件中使用代码控制窗体的位置就会不成功了,无论设置Self.Top,Self.Left为什么值,最后窗体都会自动根据Position自动调整位置. 我使用下面方法去在设置了position之后在

//透明Panel控件 unit TranPanel; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TGlassStyle = ( gsBlackness, gsDstInvert, gsMergeCopy, gsMergePaint, gsNotSrcCopy, gsNotSrcErase, gsPatCopy, gsPatInve

透明的控件, 一般继承自TGraphicControl的(就是那些没有handle属性, 不能有focus的控件, 如image)都有Transparent属性. 对TWinControl类的控件, 要实现透明只要完成以下四步基本上就成了. 1.在Create中设定ControlStyle :=ControlStyle - [csOpaque]; 2. override 它的CreateParams方法, exstyle 里加上WS_EX_TRANSPARENT. 3. 修改它的parent的w

设置窗体属性:BorderStyle 属性设置为 bsNoneColor 属性设置为 clWhite(白色:窗体背景色)TransparentColor 属性设置为 trueTransparentColorValue 属性设置为 clWhite(白色:透明颜色)//以上两颜色需一致才能使窗体透明 设置Label属性:Color 属性设置为 clWhite(白色:透明颜色)Font.Color 属性设置为 clRed(非透明颜色即可)Transparent 属性设置为 true

if not Assigned(frmAppServer) then frmAppServer := TfrmAppServer.Create(Application); frmAppServer.ShowModal;

Delphi中Form窗体的标题被设计成绘制在系统菜单的旁边,如果你想要在标题栏绘制自定义文本又不想改变Caption属性,你需要处理特定的Windows消息:WM_NCPAINT.. WM_NCPAINT消息在需要重绘边框时发送到窗口,应用程序可以利用该消息绘制自己的窗口边框. 注意,同时你也要处理窗口激活或失去焦点的WM_NCACTIVATE消息,如果不处理,当窗口失去焦点时,自定义绘制的文本会消失. type TCustomCaptionForm = class(TForm) privat

delphi中的panel控件是怎么使用的?研究了很久了,还是搞不懂,只知道把它放到form上面,其他操作一律不懂了,有谁可以请教一下,如何把其他控件放到里面去呢?谢谢 提问者采纳   直接把控件放到Panel上就行了,如果想把原来的控件添加到panel上,剪切控件再选中panel,黏贴就行了.要先选定panel控件,再在上面拖拉控件或粘贴控件才行.Panel是一个容器控件,可以用来进行窗体控件的布局和分类.可以直接拖在panel上面也可以自己该其他控件的parent属性设置成panel的名字

先人的DELPHI基础开发技巧 ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件.DragOver事件.EndDrag事件实现,例如在PANEL上的LABEL: var xpanel,ypanel,xlabel,ylabel:integer; PANEL

delphi继承form TFrmBase = class(TForm) procedure FormShow(Sender: TObject); end; procedure TFrmBase.FormShow(Sender: TObject); begin ShowMessage('base show'); end; type TFrmBase14 = class(TFrmBase)procedure FormShow(Sender: TObject); private { Private

program Project1; uses Winapi.Windows, Winapi.messages; {$R *.res} const className = 'MyDelphiWindow'; // 窗口类名称 windowTitle = 'Delphi使用 Windows API 创建的窗口'; // 窗口标题 var curMessage: TMsg; // 消息结构 windowHandle: HWND; // 窗口句柄 windowClass: TWndClass; // 窗

1. 1.退出程序                   this.Close();             //方法退关闭当前窗口. Application.Exit();       //方法退出整个应用程序.  (无法退出单独开启的线程) Application.ExitThread(); //释放所有线程 Environment.Exit(0);      //可以退出单独开启的线程 2.从本窗口Form1点击按钮产生新窗口Form2       Form2 f2 = new Form2(

DELPHI基础开发技巧 ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件.DragOver事件.EndDrag事件实现,例如在PANEL上的LABEL: var xpanel,ypanel,xlabel,ylabel:integer; PANEL的Mo

DELPHI中如何让FORM窗体透明,只显示控件?分享到: 对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理 回复次数:7largewanglargewanglargewang等级:Blank#1 得分:5 回复于: 2002-12-17 13:58:37procedure TForm1.FormCreate(Sender: TObject);begin BorderStyle := bsNone; Brush.Style := bsClear;end; //保证你只看的到控件!!!关注

form.Free   -   释放Form占用的所有资源.Free后,Form指针不能再使用,除非对Form重新赋值.   form.Hide   -   隐藏Form.可以调用form.Show再一次显示.   form.close   -   关闭Form,实际的结果取决于OnCloseQuery和OnClose,如果OnCloseQuery的CanClose为False,不执行任何操作,如果为True,进一步考察OnClose的Action的值:   caNone:   不执行任何操作 

Delphi 中窗体Form显示在第二个显示器中的方法: 假定要显示在扩展的第二个显示器的Form的名称为frmFloat,则除了要设置该form的top.left.width.height为Screen.Monitors[1].Top, Screen.Monitors[1].Left, Screen.Monitors[1].Width, Screen.Monitors[1].Height 外,一定要加上FrmFloat.MakeFullyVisible(Screen.Monitors[1]);

    TransparentColor:=true;    TransparentColorValue:=clFuchsia;    Color:= TransparentColorValue;    BorderStyle:=bsNone; delphi 窗体透明http://hi.baidu.com/duduppp/item/f347df3a16dbb9607c034bd5 来自为知笔记(Wiz)

c++builder/delphi中透明panel及透明窗口的实现方法_delphi教程 可能大多数程序员会问:透明窗口,特别是透明Panel有什么应用价值呢?可别小看它们哦,下面我就来讲讲他们的巨大作用. (1)透明窗口可以用于软件界面特效.大家可以看到很多软件的窗口出现或退出的时候是渐进或渐出的,而并非象WinArray8那样直接弹出窗口.这就是Win2000下所提供的功能.实现方法很简单: this->AlphaBlend=true; this->AlphaBlendValue=100;

form.Free - 释放Form占用的所有资源.Free后,Form指针不能再使用,除非对Form重新赋值. form.Hide - 隐藏Form.可以调用form.Show再一次显示. form.close - 关闭Form,实际的结果取决于OnCloseQuery和OnClose,如果OnCloseQuery的CanClose为False,不执行任何操作,如果为True,进一步考察OnClose的Action的值: caNone: 不执行任何操作 caHide: 隐藏窗口,同form.H