窗体共332篇

delphi 获得控件所在的窗体

获得控件所在的窗体需要引用单元:Vcl.Formsfunction GetParentForm(Control: TControl; TopForm: Boolean = True): TCustomForm;示例:GetParentForm(Edit...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0427

Delphi 中Showmodal与Show的区别

  Showmodal是个函数,Show是个过程1.Showmodal: 概念:   当你调用一个窗口用SHOWMODAL时,当这个窗口显示出来后, 程序不会继续执行 ShowModal 后的代...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0549

Delphi中根据程序名称判断是否多开

procedure TForm1.FormCreate(Sender: TObject);  var  errno:integer;  hmutex:hwnd;  begin  hmutex:=createmutex(nil,false,pchar(appli...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0456

Delphi 简单的软件注册Demo

procedure TMainForm.FormCreate(Sender: TObject);var  MyReg : TRegistry;  InsDate, LastUseDate, TryDate : TDateTime;  Total : PAnsiChar;  TotalStr : String;begin...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04810

Delphi 检测应用程序是否已停止响应

procedure TForm2.Button1Click(Sender: TObject);var  H : THandle;  lngReturnValue : longint;  DWResult : DWORD;begin  H := FindWindow('Notepad', nil);  if H...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0438

Delphi 更改消息对话框中的按钮标题

unit Unit2;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0326

procedure TForm1.FormCreate(Sender: TObject);begin   KeyPreview := true;end;procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);begin   if Key = #27 t...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
06014
-Delphi编程技巧大全

一句话概括:可以同时选中多个样式,然后设置控件的 StyleName 属性来使用某个样式。例如:object Form2: TForm2  StyleName = 'Sky'  object Panel1: TPanel    StyleName...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0435

delphi 如何禁止用户更改窗体的大小

如何禁止用户更改窗体的大小设置窗体的BorderIcons.biMinimize = false和BorderIcons.biMaximize = false。窗体的事件OnCanResize,代码如下: procedure TForm1.FormCanResize(Sender: TO...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0498
delphi 控制组件位置上下左右-Delphi编程技巧大全

delphi 控制组件位置上下左右

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vc...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
02715

Delphi 动态生成进度条窗体

在implementation加入下面uses  Gauges; var Gauge1: TGauge; 加入Timer1控件,设为false  procedure TForm1.Button1Click(Sender: TObject);var  form2: TForm;...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
03811
Delphi 时间控制窗口标题栏文字或任务栏标题文字滚动-Delphi编程技巧大全

Delphi 时间控制窗口标题栏文字或任务栏标题文字滚动

1、定义一个全局变量保存显示到标题栏的字符串,strScroll: Widestring = '风行天下 - By WindSon ';2、添加一个Timer控件,设置属性Interval := 300; Enabled:=True;3、然后添加Timer事件复制...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
03113
Delphi 非主窗体(即子窗体)在任务栏显示按钮-Delphi编程技巧大全

Delphi 非主窗体(即子窗体)在任务栏显示按钮

type  TForm2 = class(TForm)  private    { Private declarations }  public    { Public declarations }    procedure CreateParams(var Param...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
05110

delphi 让子窗体显示最大化

procedure TForm2.FormCreate(Sender: TObject);begin perform(WM_SIZE,SIZE_MAXIMIZED,0);end;
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04210

delphi form工程创建

program Project1;uses  Vcl.Forms,  Unit1 in 'Unit1.pas' {Form1},  Unit2 in 'Unit2.pas' {Form2};{$R *.res}varForm2:TForm2;begin  Application.Initialize;  Ap...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
05612

procedure TForm1.FormCreate(Sender: TObject);begin form1.Left:=(screen.Width - form1.Width) div 2; form1.Top :=(screen.Height - form1.Height) div 3; form1.Constraint...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
02713

delphi代码实现窗口最小化,最大化,关闭消息发送

代码实现窗口最小化,最大化,关闭var hwnd: hwnd;//句柄PostMessage(hwnd,WM_SYSCOMMAND, SC_MINIMIZE,0); //最小化PostMessage(hwnd,WM_SYSCOMMAND, SC_MAXIMIZE,0);//最大化PostMessage(hwnd...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
05010

delphi截获和干扰窗体最小化﹑最大化和关闭消息

type  TForm1 = class(TForm)  ......  public    { Public declarations }    procedure WMSysCommand(var Message: TWMSysCommand);message WM_SYSCOMMAN...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0576

delphi之完美Splash方案

前言:网上有很多介绍delphi创建闪屏的代码,大多只是在程序开启前显示一个闪屏,但是却没有说如何在闪屏上显示程序加载的进度,于是笔者有意思介绍一下这种闪屏方式。1.创建一个窗体(TfrmSplas...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0255

delphi PNG异形窗口

{*******************************************************}{                                  &nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
05010

delphi ToolTip提示窗口单元

unit uHintWin;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms,  Dialogs,CommCtrl;type  THintWin = class(THintWindow)private&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0469

delphi 对话框单元

unit vsk;interfaceuses   Windows, Classes, Forms, Dialogs;function Box(info:string;title: string ; Flags : Integer):Integer;  //Ϣimplementationfunction Box(info...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
02410
Delphi窗体显示Echarts图表-Delphi编程技巧大全

Delphi窗体显示Echarts图表

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB,...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
02615
Delphi任务对话框TTaskDialog类介绍-Delphi编程技巧大全

Delphi任务对话框TTaskDialog类介绍

本文档详细介绍了TTaskDialog查看更多关于 TTaskDialog 的文章类,这个类封装了Microsoft Windows CTaskDialog类。CTaskDialog是一个任务对话框,用于替换 windows Vista 或更高版本中的 window...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
05415

Delphi 简单的登录窗口

unit ULogin;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Edi...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
02715

Delphi 简单实习窗体靠边隐藏

  private    { Private declarations }    Procedure OnMove(Var Message:TMessage);  Message WM_MOVE;  public    { Public declarations }&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04011

Delphi 动态创建窗体

  procedure ShowMsg(sLog:string);  var    Frm:Tform;    Mo:Tmemo;  begin    Frm:=Tform.Create(application);    Frm.Width:=800...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04113

Delphi 用文字作为窗体的形状

var rgn:HRGN;begin   BeginPath(canvas.Handle) ; //绘制的开始路径   SetBkMode(Canvas.Handle,TRANSPARENT) ;    //TRANSPARENT   Canvas.Fon...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
05715

Delphi 控制窗口显示隐藏

procedure ChangeAppWindow(const Handle: THandle; const SetAppWindow, RestoreVisibility: Boolean);var  Style: Integer;  WasVisible, WasIconic: Boolean;begin  Style :=...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0477

Delphi 跟随鼠标位置点击弹出菜单

本示例使用一个弹出菜单。当您单击鼠标左右键时,将在您单击鼠标的地方出现弹出菜单。procedure TForm1.FormCreate(Sender: TObject);begin  PopupMenu1.AutoPopup := False;end;procedure...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
02914