Q&A
- 구창민님...해봤는디...않되서리...TTT,.TTT
구창민님이 보내주신 소스를 해보이 않되서리...(화이 않될까??)
답답해서...다시 써봅니다..
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure formCreate(sender: Tobject);
procedure formdestroy(sender: Tobject);
private
{ Private declarations }
public
{ Public declarations }
procedure wmhotkey(var message: twmhotkey);message wm_hotkey;
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.DFM}
procedure Tform1.wmhotkey(var message: Twmhotkey);
begin
if not form2.visible then form2.showmodal;
end;
procedure Tform1.formCreate(sender: Tobject);
begin
if registerhotkey(self.handle, globaladdatom('changminhotkey'),0,VK_F2)=false then
showmessage('흐미.. 등록 않됐
답답해서...다시 써봅니다..
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure formCreate(sender: Tobject);
procedure formdestroy(sender: Tobject);
private
{ Private declarations }
public
{ Public declarations }
procedure wmhotkey(var message: twmhotkey);message wm_hotkey;
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.DFM}
procedure Tform1.wmhotkey(var message: Twmhotkey);
begin
if not form2.visible then form2.showmodal;
end;
procedure Tform1.formCreate(sender: Tobject);
begin
if registerhotkey(self.handle, globaladdatom('changminhotkey'),0,VK_F2)=false then
showmessage('흐미.. 등록 않됐
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 초보맨
- 2000.03.04 00:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2000.03.03 23:42
- 1 COMMENTS
- /
- 0 LIKES
-
조복기•2000.03.04 00:49델초보 wrote: > DbEdit에 숫자 필드 데이타를 표시할때 자동으로 콤마를 > 넣는 방법을 알고 싶습니다....
-
- 양동욱
- 2000.03.03 23:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 이주환
- 2000.03.03 22:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 최 소 영
- 2000.03.03 22:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 최 소 영
- 2000.03.03 22:34
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 강혜승
- •
- 2000.03.03 19:55
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2000.03.03 20:22강혜승 wrote: > 에디터에 입력받은 글자가 전각문자인지 반각문자인지 체크하는 방법을 알고 싶습니다. ...
-
강혜승•2000.03.04 00:36정말 감사합니다. (꾸우벅~) 테스트를 하다보니 한가지 궁금한 점이 추가로 생겼습니다. 전각으로 에...
-
- 해커의꿈
- 2000.03.03 19:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 이두용
- 2000.03.03 15:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 고래고기
- 2000.03.03 08:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 답답이
- •
- 2000.03.03 06:57
- 2 COMMENTS
- /
- 0 LIKES
-
고수님•2000.03.04 20:56코딩하고있는데요~~ 왜요?
-
문홍철•2000.03.03 18:33답답이 wrote: > 다시 올립니다. > > 프로그램 로직상의 에러가 아니고 > > 정상적인 설치후 델4.0...
-
- 유나니
- •
- 2000.03.03 05:48
- 2 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.03.03 08:11안녕하세요 하얀까마귀입니다. project Menu의 제일 마지막에 보시면 options라는 메뉴가 있습니다. 거...
-
최용일•2000.03.03 06:20Project메뉴의 Option을 보면 Application탭이 있습니다. 거기에서 아이콘을 설정하시면 됩니다. 유나...
-
- 문영철
- 2000.03.03 05:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 완전초보
- 2000.03.03 04:43
- 0 COMMENTS
- /
- 0 LIKES
-
- yesir
- •
- 2000.03.03 04:28
- 1 COMMENTS
- /
- 0 LIKES
구창민님이 보내주신 소스를 해보이 않되서리...(화이 않될까??) 답답해서...다시 써봅니다.. unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) proce...-
최용일•2000.03.03 06:32이상한데요... 제가 똑같이 해 봤는데 잘 돼던데요... F2키를 누르니까 폼2가 불려지던데... 프로그램상은...
-
- 기타맨
- 2000.03.03 03:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 유나니
- •
- 2000.03.03 03:02
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2000.03.03 19:48유나니 wrote: > 오늘은 질문을 많이 하네요.. ^^; > 질문내용은 제목 그대로 입니다. > 지금 만드는 프...
-
하얀까마귀•2000.03.03 09:56안녕하세요 하얀까마귀입니다. 이게 답변이 될려나..... ^o^ 예전에 한번 저도 그런게 필요해서 한번 ...
-
- 로비
- •
- 2000.03.03 02:36
- 2 COMMENTS
- /
- 0 LIKES
-
김주민•2000.03.06 18:41로비 wrote: > 클라이언트에서 쿼리문으로(where들어감) > 조건에 맞는 값만 그리드에 뿌려주려합니다 ...
-
하얀까마귀•2000.03.03 10:12로비 wrote: > 클라이언트에서 쿼리문으로(where들어감) > 조건에 맞는 값만 그리드에 뿌려주려합니다 ...
-
- ...
- •
- 2000.03.03 01:55
- 1 COMMENTS
- /
- 0 LIKES
-
모양•2000.03.03 02:02... wrote: > 오늘 날씨가 참 좋죠? > > MS-SQL 을 처음으로 세팅하고 있습니다. > > 다른게 아니라...
F2키를 누르니까 폼2가 불려지던데... 프로그램상은 아무런 이상이
없습니다... 좋은 예제라고 생각돼는데...
그리고 RegisterHotKey와 UnregisterHotKey를 레지스트리에 등록하고 해제하는 Windows
API 함수입니다. 프로토타입은 windows유닛에 있습니다. Win32헬프를 보시면 자세한
설명을 보실수 있습니다...
yesir wrote:
> 구창민님이 보내주신 소스를 해보이 않되서리...(화이 않될까??)
> 답답해서...다시 써봅니다..
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
>
> type
> TForm1 = class(TForm)
> procedure formCreate(sender: Tobject);
> procedure formdestroy(sender: Tobject);
>
> private
> { Private declarations }
> public
> { Public declarations }
> procedure wmhotkey(var message: twmhotkey);message wm_hotkey;
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> uses Unit2;
>
> {$R *.DFM}
>
> procedure Tform1.wmhotkey(var message: Twmhotkey);
> begin
> if not form2.visible then form2.showmodal;
> end;
>
> procedure Tform1.formCreate(sender: Tobject);
> begin
> if registerhotkey(self.handle, globaladdatom('changminhotkey'),0,VK_F2)=false then
> showmessage('흐미.. 등록 않됐