uses
Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(nil);
with Form2 do
begin
BorderStyle := bsNone;
Left := 100;
Top := 100;
Width := 200;
Height := 200;
Parent := Self;
Show;
end;
end;
사정을 정확히 이해한 것인지는 모르겠지만....
고상철 님이 쓰신 글 :
: 안녕하세요...질문 제목부터가..난감하게 해드려 죄송합니다..
: 델파이 이제막 시작해서..프로그램 맹글구 있습니다. 정말 요즘 죽지 못해 살구 있습니다. 그러니 제발...욕만 하지 말아주세요..ㅋ~
:
: 메인폼이 있습니다. 1024 X 768사이즈로...
: 상단에는 메뉴가 있구요. 그 메뉴에 따라서 동적생성되는 폼이 있습니다. 이 폼을 패널로 하였다면 지금보단 쉬웠을텐데..ㅠ.ㅠㅋ;;
:
: 그 동적생성되는 폼을 StayOnTop으로 메인폼의 제가 원하는 위치에 위치시키고 싶습니다. 처음에 Left와 Top을 계산해서 넣어줬는데요..당연히 처음뿐;;;메인폼을 이동시키면 안따라오더군요;;; 생성된 폼은 저 위에 있구...폼뒤에 가려진 메인폼은 계속 돌아 댕깁니다...
:
: 제발 동적으로 생성되는 제 폼이 메인폼안에 안길수 있게 도와주세요..ㅠ.ㅠ
:
: OnResize 이벤트에다 Left, Top값을 재지정해주는...코드를 넣으면 된다 구러셨눈뎅....안됩니다..ㅠ.ㅠ뎅장..ㅠ.ㅠ
|