안녕하세요. 최용일입니다.



세가지 질문모두 검색해보시면 있는데요...



첫번째는



procedure TForm1.Button1Click(Sender: TObject);

var

Edit: TEdit;

begin

Edit := TEdit.Create(PageControl1);

Edit.Parent := PageControl1.ActivePage;

Edit.Left := 10;

Edit.Top := 10;

end;



두번째는 팁모아와 Q&A에서 찾아보세요...



세번째는



procedure TForm1.MenuItem1Click(Sender: TObject);

var

I : Integer;

begin

with PageControl1.ActivePage do

begin

for I:= 0 to ControlCount -1 do

begin

if Controls[I] is TEdit then

begin

if TEdit(Controls[I]).Focused then

begin

TEdit(Controls[I]).Font.Size := 15;

TEdit(Controls[I]).Font.Name := '궁서체';

......

end;

end;

end;

end;

end;



^^ 항상 즐코하세요...



♡엄청 바보같은놈..♡ wrote:

> 제가 짐 pagecontrold을 이용해서 작업중인데여

> 문제가 생겨서 이렇게 글을 올립니다. 제발..

>

>

> 첫번째는 ... 페이지 콘트롤에 페이지를 여러개 추가하고

> 버튼을 누르면 text박스가

> 생성된 텝시트1이 활성화면 1에.. 텝시트2가 활성화면

> 2에... 이렇게 각 페이지에 만드러야 하는데 안되네여..

>

> 두번째는 .... 이러게 만들어진 text박스를 마우스로 크기와 위치를

> 변경하는 것입니다...

>

> 세번째는.. 메뉴에서(이 메뉴는 제가 만든메누..)글꼴을 선택했을때

> 선택된 text박스에 글꼴을 변경해야 합니다.

>

>

> 제발 이 3가지 문제 해결에 도움을 주시면 백골남망이겠습니다.

> 고수님들 제발 저에게 희망의 빛을 주시기를....

> 글고 모두들 행복하세여....