procedure TFAGAE0500.Initialize_Edit;

var

i:integer

begin

for i:=0 to ComponentCount-1 do

begin

if(Components[i] is TEdit)then TEdit(Components[i]).Text :=''

else if(Components[i] is TMaskEdit)then TMaskEdit(Components[i]).Text :='';

end;



end;



이렇게 하면 아마도 모든 Edit, MaskEdit가 clear 될껍니다.

(테스트는 안해봤지만... -_-)

procedure Proc_CompClear(vp_name : TComponent);

var

vv_i : Integer;

begin

with TWinControl(vp_name) do

begin

for vv_i := 0 to Controlcount - 1 do

begin

if (Controls[vv_i] is TComboBox) then

TComboBox(Controls[vv_i]).ItemIndex := -1;



if (Controls[vv_i] is TMaskEdit) then

TMaskEdit(Controls[vv_i]).Text := '';



if (Controls[vv_i] is TEdit) then

TEdit(Controls[vv_i]).Text := '';



end;

end;

end;





초보 wrote:

> 여러번 질문을 올렸는데...한번도 대답을 해주신적이 없지만...혹시나 하는 맘에..

>

> 다른게 아니고 화면에 보여지는 Edit,MaskEdit를 "취소버튼"를 누루면 한꺼번에 Clear해줄 방법이 없지는....해서요... 전에는 일일히 아래처럼 procedure Initialize_Edit를 만들어서 사용했는데...

> procedure TFAGAE0500.Initialize_Edit;

> begin

> Edit_Bubin_Cd.Text := '';

> Panel_Bubin_Nm.Caption := '';

> Edit_Jumin_No.Text := '';

> Edit_Name.Text := '';

> Edit_Saup_No.Text := '';

> Edit_Sangho.Text := '';

> Edit_Boss.Text := '';

> Edit_Jiyuk.Text := '';

> Panel_Jiyuk_Nm.Caption := '';

> Edit_Post.Text := '';

> Edit_Tuk_Cd.Text := '';

> Panel_Tuk_Nm.Caption := '';

> Edit_Bunji.Text := '';

> Edit_Hosu.Text := '';

>

>

> Edit_Bubin_Cd.SetFocus;

> end;

> 나열을 해서 Clear를 했었는데....

> 뭔가 획기적인 방법이 없을까요?

> 이번에는 Edit들이 너무 많아서요.....

>

>

공성환 wrote:

> procedure Proc_CompClear(vp_name : TComponent);

> var

> vv_i : Integer;

> begin

> with TWinControl(vp_name) do

> begin

> for vv_i := 0 to Controlcount - 1 do

> begin

> if (Controls[vv_i] is TComboBox) then

> TComboBox(Controls[vv_i]).ItemIndex := -1;

>

> if (Controls[vv_i] is TMaskEdit) then

> TMaskEdit(Controls[vv_i]).Text := '';

>

> if (Controls[vv_i] is TEdit) then

> TEdit(Controls[vv_i]).Text := '';

>

> end;

> end;

> end;

>

>



@@@@@@@답변 감사하고요........

그런데요... 다른건 이해가 가는데.....

'vp_name'이 뭔지 졸라서요...제가 아직 초보라서.....

설명을 좀 부탁드리면 안될까요?

파라미터로 콤퍼넌트가 넘어간다는 말입니다...

예를들어 판넬1에다가 edit1 ~ edit10까지 올려놓았을경우 Proc_CompClear(판넬1)를

하면 판넬1에 있는 edit박스가 클리어 되지요...

나머지는 본인이 업무에 따라 수정하셔서 쓰시면 될것같습니다...



즐거운 하루 되세요...^^





초보 wrote:

> 공성환 wrote:

> > procedure Proc_CompClear(vp_name : TComponent);

> > var

> > vv_i : Integer;

> > begin

> > with TWinControl(vp_name) do

> > begin

> > for vv_i := 0 to Controlcount - 1 do

> > begin

> > if (Controls[vv_i] is TComboBox) then

> > TComboBox(Controls[vv_i]).ItemIndex := -1;

> >

> > if (Controls[vv_i] is TMaskEdit) then

> > TMaskEdit(Controls[vv_i]).Text := '';

> >

> > if (Controls[vv_i] is TEdit) then

> > TEdit(Controls[vv_i]).Text := '';

> >

> > end;

> > end;

> > end;

> >

> >

>

> @@@@@@@답변 감사하고요........

> 그런데요... 다른건 이해가 가는데.....

> 'vp_name'이 뭔지 졸라서요...제가 아직 초보라서.....

> 설명을 좀 부탁드리면 안될까요?