随笔分类 - Delphi-VCL-Form
摘要：uses Windows;type TfrmLogin = class(TForm) end; implementation {$R *.dfm} procedure TfrmLogin.FormCreate(Sender: TObject); begin SetWindowLong(Handle,
阅读全文
摘要：Delphi et les DFM Depuis la toute première version de Delphi, celui-ci intègre des fichiers à l'extension DFM pour gérer les fiches créées dans le des
阅读全文
摘要：下面这2种方法都能实现对控件和窗体的拖拽方法1procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture...
阅读全文
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Clipbrd;type TForm1 = class(T...
阅读全文
摘要：在很多程序中，都可以看到程序运行中，会有一个Dos窗口，实时显示一些运行信息，这里就告诉大家是如何实现的，我们做个简单的，其实对控制台的操作还有很多，有兴趣的可以去查资料。用到的API函数如下： //创建控制台 AllocConsole; //获取控制台窗口 GetStdHandle; //...
阅读全文
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Buttons, E...
阅读全文
摘要：//TransparentFrm透明窗体透明窗体 控件正常显示{以图片的形状作为窗体形态}{使窗体透明透明的只剩下个控件}//调用setFormTransParent(Form1);procedure setFormTransParent(Form:TForm); begin Form.Bord...
阅读全文
摘要：Delphi 在任务栏隐藏程序图标方法一：1、修改工程文件中的“Application.MainFormOnTaskbar := True;”为“Application.MainFormOnTaskbar := False;”2、在主窗体的 OnShow 事件中写下：ShowWindow(Appli...
阅读全文
摘要：子窗体显示在任务栏时，procedure Tfrm_SendSmartMsg.CreateParams(var Params: TCreateParams);begin inherited; Params.WndParent := 0;end;这时子窗体会在任务栏有单独的按钮，如果这时这个子窗体上又...
阅读全文
摘要：H:=FindWindow('Tfrm_MainForm','aa'); if H>0 then begin ShowWindowAsync(h,SW_MAX); SetForegroundWindow(h); end;参考：http://m.blog.csdn.net/blog/fghydx/...
阅读全文
摘要：话说Delphi有个很强的窗体设计器，这一点让VC粉丝垂涎三尺而不可得。但是，Delphi里设计的窗体并没有自动适应屏幕分辨率的属性,也就是说，软件设计时调整完美的窗体控件布局，在不同屏幕分辨率的机器上运行时可能会变得面目全非。控件之间会相互移位，有的甚至移出窗体再也找不到了。这个问题在网上搜索过多...
阅读全文
摘要：假设您要将模式窗口为主的桌面程序改成融合窗口，原子窗口为TForm类型窗口。用到的组件：Raize 5.x (不要问我为什么不用TFrame)目前流行用Raize的RzPageControl来做融合窗口，因为它自带TabSheet的关闭按钮和事件，所以大家都用这个了。我的实现方法是放一个RzTabS
阅读全文
摘要：一直都非常喜欢渐变色的界面，但是没想到漂亮的渐变Form原来这么简单。。。实在是没想到。。。看来我不仅技术水平低，脑袋里的创意也是空空如也。。。-----------------------------------------------------------------------------p...
阅读全文
摘要：新建一个空窗体项目，然后运行，此时首先运行：procedure TApplication.Run;begin FRunning := True; try AddExitProc(DoneApplication); if FMainForm nil then begin ...
阅读全文
摘要：来自万一的帖子:http://www.cnblogs.com/del/archive/2008/04/27/1173658.html的确做到了一行代码设置TForm控件的颜色（一点感想：Delphi程序员真幸福）。但真实的情况是，VCL框架在这个过程中做了大量的工作，经过多次消息的发送和响应，才达到
阅读全文
摘要：procedure TForm1.FormCreate(Sender: TObject);begin Graph:=TBitmap.Create; // On crée une variable de type TBitmap Graph.LoadFromFile('dessin.bmp'); ...
阅读全文
摘要：Delphi - 窗体创建过程 来自大富翁. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 4
阅读全文
摘要：下面为Delphi中，方法TCustomForm.ShowModal的代码，通过分析以下代码，可以了解ShowModal到底是怎么一回事！ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
阅读全文
摘要：Delphi 对话框实现源码分析简介在这篇文章中，我将大概的从Delphi XE2 的Dialogs单元入手，分析ShowMessage，MessageBox等对话框运行原理，希望能帮助你理解Delphi，不求你爱上她，只求让你能快速地解决问题。跟踪代码为了了解这些对话框的运行原理，我们需要跟踪进源...
阅读全文