一个初始化窗体编辑类控件的函数

最新推荐文章于 2020-09-05 15:46:06 发布

原创最新推荐文章于 2020-09-05 15:46:06 发布 · 935 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #function

DELPHI 技术专栏收录该内容

18 篇文章

订阅专栏

本文介绍了一个用于Delphi应用程序的函数，该函数能够遍历表单上的所有控件，并将TEdit、TComboBox、TMemo和TRadioButton等类型的控件重置到默认状态。对于文本输入型控件，其内容会被清空；对于TCheckBox和TRadioButton，则取消选中状态。

function ResetControls(oForm:TForm):Boolean;
var
    i:integer;
begin
    for i:=1 to oForm.ComponentCount do
    begin
        if (oForm.Components[i-1] is TEdit) then
            (oForm.Components[i-1] as TEdit).Text :=''
        else if (oForm.Components[i-1] is TComboBox) then
            (oForm.Components[i-1] as TComboBox).Text :=''
        else if (oForm.Components[i-1] is TMemo) then
            (oForm.Components[i-1] as TMemo).Text :=''
        else if (oForm.Components[i-1] is TCheckBox) then
            (oForm.Components[i-1] as TCheckBox).Checked :=False
        else if (oForm.Components[i-1] is TMemo) then
            (oForm.Components[i-1] as TMemo).Text :=''
        else if (oForm.Components[i-1] is TRadioButton) then
            (oForm.Components[i-1] as TRadioButton).Checked :=False;
    end;
    Result:=True
end;