안녕하세요. 짱굽니다.
음...
이렇게 해 보면 어떨까요?
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Self);
Form2.Show;
Form2.Button1.OnClick := ChangeButtonCaption;
end;
procedure TForm1.ChangeButtonCaption(Sender: TObject);
begin
Button1.Caption := '버튼 캡션을 바꿔 봅시다.';
end;
DLL에 대해서 많이 알지 못해서......
혹시 DLL에는 메인폼이 없기 때문은 아닌지 모르겠습니다.
Project/Option메뉴에 보면 MainForm이 없는걸 확인 할 수 있죠.
정확한 이유는 모르겠지만, 단순히 처음폼의 캡션을 바꾸기 위해서라면
위와 같이 해 주면 될것 같은데요...
그럼 도움이 되었으면 좋겠군요.
좋은 코딩 하세요.
|