写控件的问题

2003-04-15 09:00:35 68 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

TwinCAT3入门教程3——PLC程序变量定义和硬件IO关联目录 1、IO输入输出变量定义和硬件关联 1.1 IO输入 1.2 IO输出 1.3 PLC变量和IO模块关联 1.4 测试IO输出点 2、伺服变量关联 1、IO输入输出变量定义和硬件关联 1.1 IO输入添加全局变量IO_Global 变量定义 (*==========================================IO输入===============================================================*) 阅读详情

我写了个控件，从TPanel上继承的，上面还有一个TEdit和一个TButton
procedure TDropTree.WMSize(var message: TWMSize);
begin
inherited;
FEdit.Width:=message.Width-20;
FButton.Left:=FEdit.Width;
FButton.Width:=20;
end;

这样在设计期显示是正常的，但是在运行期FEdit的宽度没有改变，是什么原因？

...全文

【硬件设计】_基于STM32单片机的智能台灯系统智能台灯系统是一款多功能的智能照明设备，能够自动调节亮度、监测人体活动、感知环境光照，并具备定时和报警功能，极大提升了用户体验与功能的灵活性，主要包括以下功能：系统提供自动和手动两种模式以调节台灯亮度。在自动模式下，台灯会根据周围光强智能调整；而在手动模式下，用户可通过按键自行设置亮度。利用红外光电开关检测台灯与用户之间的距离，若距离过近，系统将发出报警提示。通过时钟模块设置定时提醒，并在OLED显示屏上显示当前时间，当达到设定的定时时间时，蜂鸣器将发出报警音。阅读详情

一点点凋落

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

一点点凋落 2003-04-27

打赏
举报

怎么设置，可以说具体点吗

Kingron 2003-04-27

打赏
举报

搂住：这个可是你要的？
unit ButtonEdit;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
TButtonEdit = class(TWinControl)
private
{ Private declarations }
FButton: TButton;
FEdit: TEdit;
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy;override;
published
{ Published declarations }
property Button: TButton read FButton write FButton;
property Edit: TEdit read FEdit write FEdit;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Samples', [TButtonEdit]);
end;

{ TButtonEdit }

constructor TButtonEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FButton := TButton.Create(Self);
FButton.Parent := Self;
FButton.Align := alRight;
FButton.Width := 30;
FButton.Caption := '...';

FEdit := TEdit.Create(Self);
FEdit.Align := alClient;
FEdit.Parent := Self;

Height := FEdit.Height;
Width := FEdit.Width + FButton.Width;
end;

destructor TButtonEdit.Destroy;
begin
FButton.Free;
FEdit.Free;
inherited;
end;

end.

Kingron 2003-04-26

打赏
举报

设置Anchors就可以了，干吗要写代码？

cjsh 2003-04-26

打赏
举报

你设计时就应该放到变更里面去后然后再变更里面读。

wooden954 2003-04-26

打赏
举报

是不是需要把设计期间的数据保存起来？

一点点凋落 2003-04-26

打赏
举报

就是panel拖动时候，里面的EDIT和BUTTON也跟着动。
上面的代码在设计期是对的，结果运行就还是老样子。

citytramper 2003-04-15

打赏
举报

你要实现什么效果

qiuafa 2003-04-15

打赏
举报

劫分&捧场

一点点凋落 2003-04-15

打赏
举报

不行，能解释一下吗？

xiaocha 2003-04-15

打赏
举报

procedure TDropTree.WMSize(var message: TWMSize);
begin
inherited;
FEdit.Width:=Width-20;
FButton.Left:=FEdit.Width;
FButton.Width:=20;
end;

写控件的问题

相关推荐