写控件的问题

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

C++上机——2023年“信息与未来”小学生编程思维展示官方题解本次活动前三题是“根据问题描述实现代码”类型的问题，题解和示例代码由人工智能GPT-4直接阅读题面后生成――只要熟悉C++的语法和基本的编程、调试，即可解决p1、p2、p3。后三题有一定的算法性，我们给出命题思路和一些可能的解法。注意:本题解是面向指导教师的；指导教师在讲解时可以根据学生掌握程度进行调整。阅读详情

我写了个控件，从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的宽度没有改变，是什么原因？

...全文

信息化建设项目前期方案编制4：如何画好四张图这里探讨以下具体的总体设计操作层面的工作。总体设计主要是完成四张图，总体架构（逻辑架构）、应用架构、网络拓扑、系统部署图。对于一些单一的系统，往往总体架构和应用架构可以合一。网络拓扑画好了，系统部署图也可以省略。有些项目还会在这之外，有所谓的技术架构图。对应用系统、数据存储等各个部分各自用的主要技术、服务等，给出总体设计图。但通常来说，这四张图在一个中等规模（200~500万，软件... 阅读详情

一点点凋落

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;

写控件的问题

相关推荐