MDI 또는 SDI 에서 새로운 폼을 생성 할때 폼의 이름으로 생성하면 편리 할 때가 있습니다.
1. 우선 생성 될 폼을 [Project > Options... > forms] 에서 해당 폼을 Avaiable forms: 에 등록합니다.
2. 해당 폼 Unit 에서
initialization
RegisterClasses([TfrmChild]);
를 아래 쪽에 추가합니다.
3. 생성되는 폼의 OnClose 에서
procedure TfrmChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;
3. 폼을 생성 하는 메인 폼에서
function TfrmMain.CreateChild(iClass: string): Boolean;
var
iMyFormClass: TFormClass;
iWorkform: TForm;
iHnd: THandle;
idx: integer;
begin
result := True;
iHnd := 0;
for idx := 0 to Screen.FormCount - 1 do begin
if UpperCase('T' + Screen.Forms[idx].Name) = UpperCase(iClass) then begin
iHnd := Screen.Forms[idx].Handle;
Break;
end;
end;
if iHnd = 0 then begin
iMyFormClass := TFormClass(GetClass(iClass));
if iMyFormClass <> nil then begin
iWorkform := iMyFormClass.Create(Application.MainForm)
end
else result := False;
end
else begin
if IsIconic(iHnd) then ShowWindow(iHnd, SW_SHOWNORMAL)
else BringWindowToTop(iHnd);
end;
end;
을 선언 하여 주고
4. 폼 생성시 frmChild:= TfrmChild.Create(Self); 대신
CreateChild('TFrmChild');
을 사용하여 생성하거나 보여주거나, 최상위 위치로 올려 주면 됩니다.
2012년 10월 25일 목요일
피드 구독하기:
댓글 (Atom)
comfyui 에서 cuda 에러나는 경우 조치방법
해당 comfyui 가상 환경에 설치하여야 함 cd C:\Users\jglee\AppData\Roaming\StabilityMatrix\Packages\ComfyUI PS C:\Users\jglee\AppData\Roaming\StabilityMatr...

-
윈도우10에 있는 음성 녹음기는 간단하게 녹음 할 때 간편하고 좋다. 곰 녹음기를 사용하면 오늘기준으로 CPU 점유율이 35% 이상 올라가 맥의 팬이 돌아간다. 윈10의 음성녹음기는 좋은 데 저장 폴더가 디폴트로 되어 있어 사용하기 불편하다. ...
-
클라이언트가 HTTP프로토콜을 이용해서 서버에 무언가를 전달할 때 Get 이나 Post가 사용됩니다. GET은 주소줄에 값이 ?뒤에 쌍으로 이어붙고 여러개일 경우에는 & 으로 반복하고, POST는 숨겨져서(body안에) 보내집니다. GET...
-
도학(제도?)에 쓸만한 가볍고 무료인 2D 캐드가 없나 찾던중 LibreCAD 라는 것을 찾아서 설치하여 도면을 그려보려 했더니 상당히 적응이 안되더군요. 너튜브에 자료가 있으나 별로도움이 안되고, 기본적인것 몇가지만 익히면 금방적응이 될것이라는...
댓글 없음:
댓글 쓰기