如何在 Delphi 中实现 ADO 控件会随着主窗体的大小而变化

不需要转换不可见控件。

在表单的 onsize 事件中自行计算。 或者使用拆分器拆分，为每个控件设置 alain 属性。

控件的对象检查器

如果最大化时需要向右延伸。

akright:=true

在添加控件之前，应将一些面板控件或 groupbox 控件添加到窗体中，将窗体划分为不同的区域，然后将所需的控件放在这些区域中。 这些面板或分组框可以设置它们的对齐属性为 alleft、alright、altop、alclient 等，这样它们就可以在形式变化时自动调整大小，如果效果不好，可以在这些面板中添加多个面板来进一步划分，以此类推，如果面板的边框不好看， 您可以将内面板的斜面属性设置为 bvnone。

如果您有更高的比率要求，则可以在表单的 onsize 事件中设置各种面板的宽度和高度。

在表格的调整大小事件中写是可以的，我拿的是表格的一半宽度，房东想设置多少只要你自己改就行了

procedure : tobject);

begin= div 2;

end;

完全随着更改，您必须自己编程

如果你想达到类似的效果。

可以将控件的定位点设置为 aktop=true、akright=true，将其他两项设置为 false

方法 1： 设置控件的 align 属性。

方法 2：设置控件的 anchors 属性。

方法 3：响应窗口的 onresize 事件，在该事件中，使用 ** 更改控件的大小。

这是什么意思？ 你是说控件的大小吗？ 将 align 属性的值设置为 alclient

Dephi7 使用组件的 align 属性（对齐）将表单中的组件设置为随表单一起变化 align 属性具有以下选项： Alnone （未对齐）; albottom（底部对齐） alclient（剩余区域对齐。 这取决于帮助。

我自己翻译了这个名字）;alcustom（自定义对齐。 ）；左; 好; ALTOP（顶部对齐）。

当一个或多个组件需要随形状变化的宽度和高度时。 通常，使用 align 属性。 执行此操作的常用方法是使用一些面板控件。

一个顶部对齐。 此面板控件的高度保持不变。 始终在表单的顶部，宽度将自动更改。

然后将面板设置为底部对齐，并且面板控件的高度保持不变，始终在底部，通常被视为状态栏。 然后，将面板设置为与该区域的其余部分对齐。 面板的高度和宽度将随着表格自动更改为剩余区域位置的高度和宽度。

然后在最后一个面板上放置三个面板控件。 一个左对齐。 此面板小部件的宽度保持不变。

始终在表单的左侧，高度将自动更改。 然后，将面板设置为右对齐，并且面板控件的宽度保持不变，始终在右侧。 然后，将面板设置为与该区域的其余部分对齐。

这样。 让我们将窗口分为五个区域：顶部、底部、左侧、右侧和中间。 您可以自由地根据您的表单设计进行定制。

该组合通常可以满足您的要求。

我希望我说得有道理！ 当然，希望能帮到你！

设置 align 和 anchors 属性。

在窗体的 onresize 事件中，可以重新设置目标控件的 left、top、width 和 height 值。

如果希望在不更改大小的情况下更改控件的位置，可以执行以下操作：

procedure : tobject);

begin=round(left*clientwidth/fwidth);

round(top*clientheight/fheight);

end;其中 left、top 是原始 Button1 的左侧和顶部值，fwidth 和 fheight 是原始 Form1 的宽度和高度值。

看看它是否对你有帮助。

恐怕唯一的办法就是写句子。

例如，可以将控件的 align 属性设置为 alclient

如果窗口大小发生变化，则所有空间都会自动重新排列，一种方法是写入要处理的 onsize 事件，该事件获取窗口大小并根据比例调整所有内部空间的位置和大小。 另一种方法是根据一定的布局来存储控件，并合理设置对齐属性。

这两种方法都非常详细，我一般使用第一种方法，除非只有两个三对照。

向前迈进是'当前**');就是这样。

将 webbrowser 控件的 align 属性值设置为 alclient

大多数人在 align 属性中执行此操作。 要达到标准比例也是 OK（），请写入表单大小更改事件。

例如，您的 tbutton 小部件应放置在表单的中间。 然后只需在表单大小更改事件中写入：

div 2 - div 2 ;

div 2 - div 2 ;

让我们以 tedit 控件为例。

1.在 formedit1：tedit 的公共中定义 tedit 控件;

2.在需要生成的位置添加以下内容：

edit1:=;

form1;

'edit1 text';

3.使用分配的资源后，释放它们。

if assigned(edit1) then ;

2. 在运行时生成非可视控件：以下以 ttimer 控件为例1在表单的公共中定义 ttimert 控制 timer1：ttimber;

2.在需要生成的位置添加以下内容：

timer1:=;

youraction;

yourAction 是一个自定义的 ontimer 事件，使用 procedure ：tobject）;完成 3使用分配的资源后，释放它们。

if assigned(timer1) then ;

取而代之的是，LX 只是将最大化按钮变灰。

在备忘录中将 wordwrap 属性设置为 true您将实现自动换行。 最好将滚动条设置为 ssvertical。

你能不能截一张**的截图，测试一下，下面给出的答案确实是肯定的。