좋은 방법좀 부탁합니다...
80개의 Edit를 사용중인데
비베에서는 같은이름으로
사용하면 자동으로 컨트롤베열이 주어집니다.
델"에서는 이런 기능이 없는것으로 아는데
이런 경우 어떻게 사용해야 하나요??? 좋은 방법이 없는지요??
일일히 배열로 주어주잖이 80개의 Edit이름을 다 적어야 하는 불편함두 있구요?
Tag 속성을 사용해 보십시오...
일반적으로 Tag 속성에 비베에서 사용하던 컨트롤
배열의 기능을 이용하는것으로 알고있습니다.
또 사용하기도 편리하구요.
아래는 여러개의 에디트 컨트롤 클리어 하는 Tip 입니다.
참고해서 활용하시길...
procedure TMainForm.btnClear(Sender: TObject);
var
iI: Integer;
begin
for iI := 0 to ComponentCount - 1 do
if (Components[iI] is TEdit) then
TEdit(Components[iI]).Clear;
end;
만약 에디트 컴포넌트의 이름을 가지고 제어하고자 한다면,
컴포넌트의 이름보다는 VCL class를 먼저 체크해 주어야 한다.
if (Components[iI] is TEdit) and (TEdit(Components[iI].Name <> 'edDontClear')) then
TEdit(Components[iI]).Text := '';
일반적으로 Tag 속성에 비베에서 사용하던 컨트롤
배열의 기능을 이용하는것으로 알고있습니다.
또 사용하기도 편리하구요.
아래는 여러개의 에디트 컨트롤 클리어 하는 Tip 입니다.
참고해서 활용하시길...
procedure TMainForm.btnClear(Sender: TObject);
var
iI: Integer;
begin
for iI := 0 to ComponentCount - 1 do
if (Components[iI] is TEdit) then
TEdit(Components[iI]).Clear;
end;
만약 에디트 컴포넌트의 이름을 가지고 제어하고자 한다면,
컴포넌트의 이름보다는 VCL class를 먼저 체크해 주어야 한다.
if (Components[iI] is TEdit) and (TEdit(Components[iI].Name <> 'edDontClear')) then
TEdit(Components[iI]).Text := '';