Delphi 스크립트를 통해 디자인 기간 동안 컨트롤name 속성 변경
program ScriptRenameZL;
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
TypInfo, ToolsAPI,CnCommon, CnWizUtils,CnWizIdeUtils,IdeInstComp; //IdeInstComp CnWizIdeUtils CnWizUtils
{ Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
TypInfo, ToolsAPI,CnCommon, CnWizUtils,CnWizIdeUtils;}
var
//DesignContainer, Comp: TComponent;
DesignContainer:TCustomForm;
comp:TWinControl;
I,CompCount: Integer;
begin
//for I := 0 to Screen.FormCount - 1 do
{
var
Menu: TMenuItem;
MainForm: TCustomForm;
Component: TComponent;
begin
MainForm := GetIdeMainForm;
if MainForm <> nil then
begin
Component := MainForm.FindComponent('HelpMenu');
if Component = nil then
begin
ErrorDlg('Help Menu NOT Found.');
Exit;
end;
}
DesignContainer := IdeGetDesignedForm(form1); //xe10.1 , xe7
//DesignContainer := GetIdeMainForm;
//DesignContainer := Screen.Forms[0];
if DesignContainer = nil then
begin
showmessage('NO form xxx Found.');
Exit;
end;
CompCount:= DesignContainer.ComponentCount;
showmessage(inttostr(compcount));
for i := 0 to CompCount - 1 do
begin
//showmessage(DesignContainer.Components[i].classname);
if DesignContainer.Components[i].classname='TEdit' then
begin
showmessage('a');
GetHzPyW(GetStrProp(DesignContainer.Components[i],'caption'))
Comp :=TEdit(DesignContainer.Components[i]);
SetPropValue(Comp, 'Name','edtzl'+ inttostr(i));
end;
end;
end.
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSONJSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다. 그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다. 저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.