입력 도구 모음 이란게
Edit 나 Memo 를 이야기 하시는 건지 잘은 모르겠는데요.
혹시 맞다면 아래의 방법을 이용하시면 될듯 합니다.
버튼 두개 놓고 하나는 보이고 하나는 안보이게 하는데요.
<!--CodeS-->
procedure TForm1.Button4Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to form1.ComponentCount-1 do
begin
if Form1.Components[i] is TEdit then
begin
TEdit(Form1.Components[i]).Visible := False;
end;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to form1.ComponentCount-1 do
begin
if Form1.Components[i] is TEdit then
begin
TEdit(Form1.Components[i]).Visible := True;
end;
end;
end;
<!--CodeE-->
Edit 나 Memo 를 이야기 하시는 건지 잘은 모르겠는데요.
혹시 맞다면 아래의 방법을 이용하시면 될듯 합니다.
버튼 두개 놓고 하나는 보이고 하나는 안보이게 하는데요.
<!--CodeS-->
procedure TForm1.Button4Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to form1.ComponentCount-1 do
begin
if Form1.Components[i] is TEdit then
begin
TEdit(Form1.Components[i]).Visible := False;
end;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to form1.ComponentCount-1 do
begin
if Form1.Components[i] is TEdit then
begin
TEdit(Form1.Components[i]).Visible := True;
end;
end;
end;
<!--CodeE-->
좋은 하루 되세요