怎样让用户在运行期实现设计期那样的界面设计方式 _delphi 系统运行期间设计界面-优快云博客

本文介绍了一个Delphi窗体设计示例，包括窗体与控件的鼠标事件处理方法，实现控件的拖放功能。此外，还讨论了如何利用Delphi的运行时类型信息(RTTI)来动态生成控件并设置其属性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

     object frmMain: TfrmMain
     Left = 335
     Top = 199
     BorderStyle = bsSingle
     Caption = 'Form1'
     ClientHeight = 183
     ClientWidth = 320
     Color = clBtnFace
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
     Font.Height = -10
     Font.Name = 'MS Sans Serif'
     Font.Style = []
     OldCreateOrder = False
     Position = poScreenCenter
     Scaled = False
     PixelsPerInch = 96
     TextHeight = 13
     object GroupBox1: TGroupBox
     Left = 16
     Top = 8
     Width = 73
     Height = 81
     Caption = 'GroupBox1'
     TabOrder = 0
     OnMouseDown = ControlMouseDown
     OnMouseMove = ControlMouseMove
     OnMouseUp = ControlMouseUp
     end
     object CheckBox1: TCheckBox
     Left = 40
     Top = 120
     Width = 97
     Height = 17
     Caption = 'CheckBox1'
     TabOrder = 1
     OnMouseDown = ControlMouseDown
     OnMouseMove = ControlMouseMove
     OnMouseUp = ControlMouseUp
     end
     object Button1: TButton
     Left = 102
     Top = 16
     Width = 75
     Height = 25
     Caption = 'Button1'
     TabOrder = 2
     OnMouseDown = ControlMouseDown
     OnMouseMove = ControlMouseMove
     OnMouseUp = ControlMouseUp
     end
     object Edit1: TEdit
     Left = 136
     Top = 64
     Width = 121
     Height = 21
     TabOrder = 3
     Text = 'Edit1'
     end
     end

     ********************************************************

     unit Unit1;

     interface

     uses
     Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
     StdCtrls, Registry, ExtCtrls, ComCtrls;

     type
     TfrmMain = class (TForm)
     GroupBox1: TGroupBox;
     CheckBox1: TCheckBox;
     Image1: TImage;
     Button1: TButton;
     procedure ControlMouseDown(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
     procedure ControlMouseMove(Sender: TObject; Shift: TShiftState; X,
     Y: Integer);
     procedure ControlMouseUp(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
     private
     downX, downY: Integer;
     dragging: Boolean;
     { Private-Deklarationen }
     public
     { Public-Deklarationen }
     end ;

     var
     frmMain: TfrmMain;

     implementation

     {$R *.DFM}

     type
     TMoveCracker = class (TControl);

     procedure TfrmMain.ControlMouseDown(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
     begin
     downX := X;
     downY := Y;
     dragging := TRue;
     TMoveCracker(Sender).MouseCapture := True;
     end ;

     procedure TfrmMain.ControlMouseMove(Sender: TObject; Shift: TShiftState; X,
     Y: Integer);
     begin
     if dragging then
     with Sender as TControl do
     begin
     Left := X - downX + Left;
     Top := Y - downY + Top;
     end ;
     end ;

     procedure TfrmMain.ControlMouseUp(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
     begin
     if dragging then
     begin
     dragging := False;
     TMoveCracker(Sender).MouseCapture := False;
     end ;
     end ;

     end .

     定义三个方法ControlMouseUp，ControlMouseMove，ControlMouseDown，分别对应桌面所有控件的 OnMouseDown，OnMouseMove，OnMouseUp方法即可。
     2. 关于动态控件生成和控件属性、方法赋值的问题。
     这是标准的Delphi RTTI调用，Delphi Inspector自己也是通过RTTI调用的，没有什么好简单的吧，本来就很简单。