相关疑难解决方法(0)

将引用/一个位置中的对象传递给样式对象

我有一个很大的应用程序,目前正在设置.为了节省我更改IDE/Object Inspector中的所有按钮,我计划为主要对象执行一些功能,例如

procedure StyleButton(AButton : TButton)
begin
    AButton.Color := clGreen;
    AButton.Font.Style = [fsBold];
end;
Run Code Online (Sandbox Code Playgroud)

等等,然后根据需要将其添加到表单onCreates

StyleButton(Button1); whatever etc
Run Code Online (Sandbox Code Playgroud)

在这样的参数中传递对象没有问题.它只是引用第一个对象吗?

它工作正常,我想不出任何问题,但因为这是一个大型的应用程序,成千上万的用户,我只是想确保没有问题/内存泄漏/资源消耗问题.

也将使用TAdvStringGrid和TEdit/TMemo组件做类似的事情.

然后只允许一个地方更改这些设置.

或者有人有更好的主意?

delphi object pass-by-reference

2
推荐指数
1
解决办法
1637
查看次数

标签 统计

delphi ×1

object ×1

pass-by-reference ×1