Q&A
- 대화상자의 크기가 변할때 체크할려구 하는데 잘안되어요..
unit OpenReport;
{$R-,H+,X+}
interface
uses Messages, Windows, SysUtils, Classes, Controls, StdCtrls, Graphics,
ExtCtrls, Buttons, Dialogs;
type
{ TOpenPictureDialog }
TOpenReportDialog = class(TOpenDialog)
private
OldProc:TWndMethod;
public
procedure ResizeProc(var Mes:TMessage);
end;
{ TSavePictureDialog }
TSaveReportDialog = class(TOpenReportDialog)
public
function Execute: Boolean; override;
end;
implementation
uses Consts, Forms, CommDlg, Dlgs,main;
{ TOpenPictureDialog }
{$R EXTDLGS.RES}
constructor TOpenReportDialog.Create(AOwner: TComponent);
begin
OldProc:=TControl(self).WindowProc;
TControl(self).windowproc:=ResizeProc;
end;
procedure TOpenReportDialog.ResizeProc(var Mes: TMessage);
begin
if Mes.msg=OFN_ENABLESIZING then showmessage('Resizing Now~'); // 어떤 메세지를 찾아야할지..
OldProc(Mes);
end;
end.
{$R-,H+,X+}
interface
uses Messages, Windows, SysUtils, Classes, Controls, StdCtrls, Graphics,
ExtCtrls, Buttons, Dialogs;
type
{ TOpenPictureDialog }
TOpenReportDialog = class(TOpenDialog)
private
OldProc:TWndMethod;
public
procedure ResizeProc(var Mes:TMessage);
end;
{ TSavePictureDialog }
TSaveReportDialog = class(TOpenReportDialog)
public
function Execute: Boolean; override;
end;
implementation
uses Consts, Forms, CommDlg, Dlgs,main;
{ TOpenPictureDialog }
{$R EXTDLGS.RES}
constructor TOpenReportDialog.Create(AOwner: TComponent);
begin
OldProc:=TControl(self).WindowProc;
TControl(self).windowproc:=ResizeProc;
end;
procedure TOpenReportDialog.ResizeProc(var Mes: TMessage);
begin
if Mes.msg=OFN_ENABLESIZING then showmessage('Resizing Now~'); // 어떤 메세지를 찾아야할지..
OldProc(Mes);
end;
end.
3
COMMENTS
-
-
넘 어렵게 구현하시는거 아닌가요?
그냥, OnResize 이벤트 핸들러에 적당히 구현해 주면,
폼의 크기가 변할때 마다 이벤트가 발생하니까,
그때, 변한 크기들을 구해서 적당한 동작을 취해주면
될것 같습니다.
저의 허접한 답변이 도움이 되시길..
어린왕자 wrote:
> unit OpenReport;
>
> {$R-,H+,X+}
>
> interface
>
> uses Messages, Windows, SysUtils, Classes, Controls, StdCtrls, Graphics,
> ExtCtrls, Buttons, Dialogs;
>
> type
>
> { TOpenPictureDialog }
>
> TOpenReportDialog = class(TOpenDialog)
> private
> OldProc:TWndMethod;
> public
> procedure ResizeProc(var Mes:TMessage);
> end;
>
>
> { TSavePictureDialog }
>
> TSaveReportDialog = class(TOpenReportDialog)
> public
> function Execute: Boolean; override;
> end;
>
> implementation
>
> uses Consts, Forms, CommDlg, Dlgs,main;
>
> { TOpenPictureDialog }
>
> {$R EXTDLGS.RES}
>
> constructor TOpenReportDialog.Create(AOwner: TComponent);
> begin
> OldProc:=TControl(self).WindowProc;
> TControl(self).windowproc:=ResizeProc;
> end;
>
>
> procedure TOpenReportDialog.ResizeProc(var Mes: TMessage);
> begin
> if Mes.msg=OFN_ENABLESIZING then showmessage('Resizing Now~'); // 어떤 메세지를 찾아야할지..
> OldProc(Mes);
> end;
>
> end.
-
저두 그렇게 할려구 했는데..
없더라구요..
그런거 안키우더라구요.
그래서..리사이즈메세지를 찾고 있어염.
한원희 wrote:
>
> 넘 어렵게 구현하시는거 아닌가요?
> 그냥, OnResize 이벤트 핸들러에 적당히 구현해 주면,
> 폼의 크기가 변할때 마다 이벤트가 발생하니까,
> 그때, 변한 크기들을 구해서 적당한 동작을 취해주면
> 될것 같습니다.
>
> 저의 허접한 답변이 도움이 되시길..
>
>
> 어린왕자 wrote:
> > unit OpenReport;
> >
> > {$R-,H+,X+}
> >
> > interface
> >
> > uses Messages, Windows, SysUtils, Classes, Controls, StdCtrls, Graphics,
> > ExtCtrls, Buttons, Dialogs;
> >
> > type
> >
> > { TOpenPictureDialog }
> >
> > TOpenReportDialog = class(TOpenDialog)
> > private
> > OldProc:TWndMethod;
> > public
> > procedure ResizeProc(var Mes:TMessage);
> > end;
> >
> >
> > { TSavePictureDialog }
> >
> > TSaveReportDialog = class(TOpenReportDialog)
> > public
> > function Execute: Boolean; override;
> > end;
> >
> > implementation
> >
> > uses Consts, Forms, CommDlg, Dlgs,main;
> >
> > { TOpenPictureDialog }
> >
> > {$R EXTDLGS.RES}
> >
> > constructor TOpenReportDialog.Create(AOwner: TComponent);
> > begin
> > OldProc:=TControl(self).WindowProc;
> > TControl(self).windowproc:=ResizeProc;
> > end;
> >
> >
> > procedure TOpenReportDialog.ResizeProc(var Mes: TMessage);
> > begin
> > if Mes.msg=OFN_ENABLESIZING then showmessage('Resizing Now~'); // 어떤 메세지를 찾아야할지..
> > OldProc(Mes);
> > end;
> >
> > end.
(NOTICE) You must be logged in to comment on this post.
-
- 이창영
- •
- 2000.12.12 02:30
- 5 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.12 02:57
-
이창영•2000.12.12 04:03
-
문의득•2000.12.14 01:27
-
이창영•2000.12.14 04:01
-
문의득•2000.12.14 17:55
-
- 조현덕
- 2000.12.12 02:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 이원택
- •
- 2000.12.12 02:21
- 1 COMMENTS
- /
- 0 LIKES
-
델피언•2000.12.12 18:15안녕하세요 델초보 델피언 입니다. 미리보기를 하고 나면 일단 그리드에 연결된 테이블의 Last가 되므로...
-
- 왕초보녀
- 2000.12.12 02:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 정성훈
- •
- 2000.12.12 01:56
- 2 COMMENTS
- /
- 0 LIKES
-
김용배•2000.12.12 03:38정성훈 wrote: > 안녕하세요. > 음 하다가 막히는 부분이 있어 이렇게 글을 올립니다. > 아래 평션은 사...
-
정성훈•2000.12.13 02:56내용무 답변 정말 감사합니다. 조금 어렵지만 함 해볼께요.... 그럼 오늘 하루도 행복하시길..
-
- 질문
- 2000.12.12 01:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 김미영
- 2000.12.12 01:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- •
- 2000.12.12 01:48
- 3 COMMENTS
- /
- 0 LIKES
unit OpenReport; {$R-,H+,X+} interface uses Messages, Windows, SysUtils, Classes, Controls, StdCtrls, Graphics, ExtCtrls, Buttons, Dialogs; type { TOpenPictureDialog } TOpenReportDialog = class(TOpenDialog) private OldPro...-
어린왕자•2000.12.12 20:43아래 코드에서.. 메세지 훅한 부분의 OFN_ENABLESIZING을 WM_WINDOWPOSCHANGING로 바꾸면 되죠? 근데 ...
-
한원희•2000.12.12 02:24넘 어렵게 구현하시는거 아닌가요? 그냥, OnResize 이벤트 핸들러에 적당히 구현해 주면, 폼의 크기가 ...
-
어린왕자•2000.12.12 02:35저두 그렇게 할려구 했는데.. 없더라구요.. 그런거 안키우더라구요. 그래서..리사이즈메세지를 찾고 있...
-
- 곽경남
- 2000.12.12 01:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 박일용
- •
- 2000.12.12 01:37
- 1 COMMENTS
- /
- 0 LIKES
-
한원희•2000.12.12 02:28저도 그런 경우가 있었는데요... 아마도, 컴파일 옵션에서 옵티마이즈 옵션을 걸어 놓으면, 델파이가 알...
-
- 김편용
- 2000.12.12 00:46
- 0 COMMENTS
- /
- 0 LIKES
-
- Faster
- •
- 2000.12.12 00:37
- 1 COMMENTS
- /
- 0 LIKES
-
김용배•2000.12.12 03:46Faster wrote: > 안녕하십니까? > > 이번에 시리얼포트를 이용한 프로그램을 하나 만들려고 하는데 > ...
-
- 사발우성
- 2000.12.12 00:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 류지훈
- 2000.12.12 00:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 박소연
- 2000.12.11 23:58
- 0 COMMENTS
- /
- 0 LIKES
-
- TIME
- •
- 2000.12.11 23:46
- 1 COMMENTS
- /
- 0 LIKES
-
한원희•2000.12.12 02:52아래 어떤 분이 루프를 이용한 답변을 올리셨는데... 사실 루프를 이용한 방법이 젤 간단합니다. in 은...
-
- 이원택
- 2000.12.11 23:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 심종현
- •
- 2000.12.11 23:14
- 2 COMMENTS
- /
- 0 LIKES
-
류종택•2000.12.11 23:45아래 예제를 참고하세요.. From 류.. procedure TForm1.Button1Click(Sender: TObject); begin ...
-
한원희•2000.12.12 02:41류종택님의 답변에 약간 덧붙이자면, 버튼을 여러개 계속 동적 생성을 한다면, 이벤트 핸들러에서 문제...
-
- 궁금이
- •
- 2000.12.11 23:13
- 1 COMMENTS
- /
- 0 LIKES
-
한하눌•2000.12.12 01:29궁금이 wrote: > CheckListBox에서 Check된것을 StringList에 저장을 할려고 하는데.... > for문을 돌리...
-
- langbo
- 2000.12.11 23:10
- 0 COMMENTS
- /
- 0 LIKES
메세지 훅한 부분의 OFN_ENABLESIZING을 WM_WINDOWPOSCHANGING로 바꾸면
되죠?
근데 결과는 안되더라구요..
WM_SIZE두 마찬가지..
보통 폼하고 틀린가봐요..
원래 대화상자는 크기 변경이 안되잖아요.
이놈은 아무래두 특별해서 그런가?
한번 테스트 해주세요..
파일열기대화상자에서의 폼리사이즈 이벤트 받기..
테란쑈당 wrote:
>
> 폼의 크기가 변하려할때는 "WM_WINDOWPOSCHANGING" 메시지가 발생하고
> 폼의 크기가 변하고 나면 "WM_SIZE" 메시지가 발생합니다.
>
> 참고하세요.
>
> ------------------------------------------------------------------------------
>
> 어린왕자 wrote:
> > unit OpenReport;
> >
> > {$R-,H+,X+}
> >
> > interface
> >
> > uses Messages, Windows, SysUtils, Classes, Controls, StdCtrls, Graphics,
> > ExtCtrls, Buttons, Dialogs;
> >
> > type
> >
> > { TOpenPictureDialog }
> >
> > TOpenReportDialog = class(TOpenDialog)
> > private
> > OldProc:TWndMethod;
> > public
> > procedure ResizeProc(var Mes:TMessage);
> > end;
> >
> >
> > { TSavePictureDialog }
> >
> > TSaveReportDialog = class(TOpenReportDialog)
> > public
> > function Execute: Boolean; override;
> > end;
> >
> > implementation
> >
> > uses Consts, Forms, CommDlg, Dlgs,main;
> >
> > { TOpenPictureDialog }
> >
> > {$R EXTDLGS.RES}
> >
> > constructor TOpenReportDialog.Create(AOwner: TComponent);
> > begin
> > OldProc:=TControl(self).WindowProc;
> > TControl(self).windowproc:=ResizeProc;
> > end;
> >
> >
> > procedure TOpenReportDialog.ResizeProc(var Mes: TMessage);
> > begin
> > if Mes.msg=OFN_ENABLESIZING then showmessage('Resizing Now~'); // 어떤 메세지를 찾아야할지..
> > OldProc(Mes);
> > end;
> >
> > end.