다음과 같이 하니까 잘 되네요.
내가 초보라고 상대방도 초보인줄 알고 실례했습니다. ^^
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage('까꿍');
Button1Click(Sender);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('이건 버튼클릭 까꿍');
end;
FormCreateEvent 에 코딩하면 메시지가 메인폼보다 먼저
FormActivateEvent 에 코딩하면 메인폼이 나온후 메시지
이 내용은 아실것 같습니다만 혹시나 해서 적습니다.
|