随笔分类 - Delphi-VCL-Form
摘要：1.在Delphi中，设置窗体的AlphaBlend := true;AlphaBlendValue := 0-255; AlphaBlendValue越小窗体的透明度就越高。这种方法将会使窗体和窗体中控件都变成透明。2.在Delphi中，设置TransparentColor := True与Tra
阅读全文
摘要：SetForegroundWindowSwitchToThisWindow procedure TApplication.BringToFront;varTopWindow: HWnd;beginif Handle <> 0 thenbeginTopWindow := GetLastActivePo
阅读全文
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Pr
阅读全文
摘要：program PMyWindowClass; uses Windows, Messages, SysUtils; type TMyWindow = class(TObject) private { Private declarations } WindowClass: WndClass; hWin
阅读全文
摘要：unit uMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzTabs, Menus; type TFrmMain = class(TF
阅读全文
摘要：一直都喜欢这样显示窗口，因为简单高效： void MainWidget::ShowMyWindow() { MyWidget form(this); form.resize(760,611); form.exec(); } 今天忽然想到一个问题，栈的空间只有1M或者2M，一个窗口如果数据比较多的话，
阅读全文
摘要：Windows可以将多个显示器映射为虚拟桌面，使我们可以利用这一点设计出方便工作的应用程序。例如PowerPoint就充分发挥了双显示器的优势（大多数的笔记本电脑都支持），它可以在一个显示器上播放幻灯片，而在另一个显示器上显示备注，可以控制播放的进程，使使用者做商务演说的时候非常等心应手。那么我们怎
阅读全文
摘要：禁用最大化(属性)窗体-> BorderIcons属性-> biMaximize-> False让鼠标无法改变窗体大小(属性)窗体-> Constraints属性 ->MaxHeight和MinHeight->设置相同限制鼠标改变窗体的高度窗体-> Constraints属性->MaxWidth和M...
阅读全文
摘要：PS:因为我现在用的电脑是WIN7 64位系统，所以没有实现功能，不知道XP是否可行。//1.定义方法procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;//2.实现方法procedure TForm1.WMNCPaint(va...
阅读全文
摘要：uses Windows;type TfrmLogin = class(TForm) end;implementation{$R *.dfm}procedure TfrmLogin.FormCreate(Sender: TObject);begin SetWindowLong(Handl...
阅读全文
摘要：需要用到的一个函数：LONG SetWindowLong( HWND hWnd, int nIndex, LONG dwNewLong);program Project;usesForms,Windows,ufrmMain in 'ufrmMain.pas' {frmMain};{$R ...
阅读全文
摘要：核心提示：使用Windows95/NT/98操作系统的用户知道：Windows正常启动后,在电脑屏幕下方出现一块 任务栏。使用Windows95/NT/98操作系统的用户知道：Windows正常启动后,在电脑屏幕下方出现一块 任务栏。从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是...
阅读全文
摘要：最大化按钮不可用，而且窗体最大化，我以前一直这样设置：在Object Inspector下把BorderIcons属性下的biMaximize属性设置为False，然后把WindowState属性设置为wsMaximized，结果是窗体的最大化按钮的确是隐藏了，窗体也最大化了，但是窗体也遮盖住了任务...
阅读全文
摘要：{**********************************************************************API函数 AnimateWindow 使用：函数功能：窗体显示和隐藏时产生特殊的动画效果；可以产生两种类型的动画效果：滚动动画 和 滑动动画函数原型：BOO...
阅读全文
摘要：typeTForm1 = class(TForm)private{ Private declarations }public{ Public declarations }procedure CreateParams(var Params: TCreateParams); override;end;v...
阅读全文
摘要：procedure TForm1.FormCreate(Sender: TObject);varpt: array [0 .. 4] of TPoint;m_rgn: HRGN;beginpt[0].x := self.Width div 2;pt[0].y := 0;pt[1].x := 0;pt...
阅读全文
摘要：Delphi中使用提示是如此简单，只需将欲使用Hint的控件作如下设置： ShowHint := True; Hint := ‘提示信息’; 不必写一行代码，相当方便。 但有时我们又想自己定制提示的效果，使其看起来更美观更具个人特色，没关系，Delphi完全有办法让你写出自己喜欢的Hint效...
阅读全文
摘要：刚开始代码如下：procedure TForm1.Button1Click(Sender: TObject);var Panel: TPanel;begin Panel := TPanel.Create(Form1); Panel.Name := 'pnlPreVideo'; Panel.P...
阅读全文
摘要：var AWinControl:TPageControl;begin AWinControl := PageControl1; if frmAbout = nil then Exit; frmAbout.ManualDock(AWinControl, nil, alClient);...
阅读全文
摘要：WINDOWS提供了一个很有意思的函数：AnimateWindow。之前我想实现像MSN,QQ这些收到邮件的时候动画方式，从地下升上来的显示一个窗口，感觉很麻烦，自己去写代码，效果很不理想，今天无意中发现了一个函数AnimateWindow，能很好的实现这个功能。并且网上找了一个例子：// 主窗体：...
阅读全文