첫번째 폼에다 콤보박스를 두고... 그 박스에서 선택된 수만큼 에디트 박스를 두번째 폼에 뿌려 주려고 합니다..
음.. 어떤 방법을 써야 하나여????
갈켜주세염 ~ 많은 조언 붙탁드립니다...
(__) (--)
^________________________________^
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to StrToInt(Edit1.Text) do
begin
with TEdit.Create(Form2) do
begin
Name := 'TmpEdit'+FormatFloat('00',i);
Visible := True;
Parent := Form2;
Top := i*20;
Left := 20;
end;
end;
Form2.ShowModal;
end;
님...우선 답변 너무너무 감사해여~ ^^*
근데... ㅡㅡ;
안되네염...
procedure TfrmMnuF1_5.BitBtn1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to StrToInt(ComboBox3.Text) do
begin
with TEdit.Create(frmMnuF1_5P) do
begin
Name := 'TmpEdit'+FormatFloat('00',i);
Visible := True;
Parent := frmMnuF1_5P;
Top := i*20;
Left := 20;
end;
end;
frmMnuF1_5P.showmodal;
end;
이렇게 해줬는데... ㅜ.ㅠ 안되염... 다시 함 봐주세여~~~
ㅡㅡ; 죄송합니다...
순서가 틀렸네요... 폼 Show 순서요..^^
없는 폼에다 에디트박스를 만들려고 하니 에러가 나는것 같네요..
다음과 같이 바꿔보세요
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
form2.Show; <== 폼을 먼저 열어주시고 써주시면 됩니다.
for i := 0 to StrToInt(ComboBox1.Text) do
begin
with TEdit.Create(form2) do
begin
Name := 'TmpEdit'+FormatFloat('00',i);
Parent := form2;
Top := i*20;
Left := 20;
end;
end;
end;
첫번째 폼에다 콤보박스를 두고... 그 박스에서 선택된 수만큼 에디트 박스를 두번째 폼에 뿌려 주려고 합니다.. 음.. 어떤 방법을 써야 하나여???? 갈켜주세염 ~ 많은 조언 붙탁드립니다... (__) (--) ^________________________________^
최상원
•
2002.09.16 20:07
두번째 폼에 MAX개의 에디트박스를 미리 디자인해놓고 콤보에서 선택한
갯수만큼만 보여주시면 될듯한데...
짱아
•
2002.09.16 21:17
ㅡㅡ 숫자는 무한정이라...
에디트 박스를 미리 디자인 해놓는건 너무 무모한듯 해서... ㅡㅡ;
자동 생성...
성더기
•
2002.09.16 22:34
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
f...
두번째 폼에 MAX개의 에디트박스를 미리 디자인해놓고 콤보에서 선택한
갯수만큼만 보여주시면 될듯한데요. ^^;
혹시 에디트박스가 100개는 안넘겠죠?? ㅡ.ㅡ
자동생성으로 하면 컨트롤하기가 더 어려워질것 같은데요...
수고하세요..