Q&A
procedure TMain.Source_menuClick(Sender: TObject);
begin
ShellExecute(Handle,'open','NotePad',PChar('c:a.txt'),'',SW_SHOWNORMAL);
Timer1.Enabled := true;
end;
procedure TMain.Timer1Timer(Sender: TObject);
var
NoteHWND : HWND;
S : array[0..255] of Char;
begin
StrPCopy(S, Form1.Caption);
NoteHWND := GetForegroundWindow;
SetWindowText(NoteHWND, @S);
Timer1.Enabled := False; ---------------------------- ⓐ
end;
ⓐ 노트패드를 실행한후 MainForm의 Caption을 노트패드의 Caption바에 넣으려고하는데
저는 실행시 타이머를 실행해서 최상위폼의 핸들을 구해서 Caption을 바꿨습니다.
그런데 ⓐ에서 Timer1.Enabled := False를 하면 이상하게
Caption이 'C:a.txt - 메모장'으로 바껴버리던데.. 왜그런지 모르겠어요.
Timer1.Enabled := True로 해놓자니 Interval마다 깜빡이네요..
노트패드 캡션 바꾸는 법좀 알려주세요..
고수님들 부탁드립니다~~~~~~~~~~
- 노트패드 캡션바꾸기~~~
procedure TMain.Source_menuClick(Sender: TObject);
begin
ShellExecute(Handle,'open','NotePad',PChar('c:a.txt'),'',SW_SHOWNORMAL);
Timer1.Enabled := true;
end;
procedure TMain.Timer1Timer(Sender: TObject);
var
NoteHWND : HWND;
S : array[0..255] of Char;
begin
StrPCopy(S, Form1.Caption);
NoteHWND := GetForegroundWindow;
SetWindowText(NoteHWND, @S);
Timer1.Enabled := False; ---------------------------- ⓐ
end;
ⓐ 노트패드를 실행한후 MainForm의 Caption을 노트패드의 Caption바에 넣으려고하는데
저는 실행시 타이머를 실행해서 최상위폼의 핸들을 구해서 Caption을 바꿨습니다.
그런데 ⓐ에서 Timer1.Enabled := False를 하면 이상하게
Caption이 'C:a.txt - 메모장'으로 바껴버리던데.. 왜그런지 모르겠어요.
Timer1.Enabled := True로 해놓자니 Interval마다 깜빡이네요..
노트패드 캡션 바꾸는 법좀 알려주세요..
고수님들 부탁드립니다~~~~~~~~~~
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 델프리
- •
- 2001.11.13 19:32
- 1 COMMENTS
- /
- 0 LIKES
procedure TMain.Source_menuClick(Sender: TObject); begin ShellExecute(Handle,'open','NotePad',PChar('c:a.txt'),'',SW_SHOWNORMAL); Timer1.Enabled := true; end; procedure TMain.Timer1Timer(Sender: TObject); var NoteHWND : H...-
sk3958•2001.11.14 01:13델프리 wrote: > > procedure TMain.Source_menuClick(Sender: TObject); > begin > ShellExecute(...
-
- 초보델피언...
- 2001.11.13 19:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤석봉
- 2001.11.13 19:29
- 0 COMMENTS
- /
- 0 LIKES
-
- Jane
- •
- 2001.11.13 19:09
- 1 COMMENTS
- /
- 0 LIKES
-
최월자•2001.11.13 22:26Jane wrote: > 예를 들어 F2,F3등을 사용하여 이벤트를 발생시키고 사용할 수 있었으면 합니다. > 어떻게...
-
- 델친구
- 2001.11.13 10:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 훈
- •
- 2001.11.13 09:45
- 4 COMMENTS
- /
- 0 LIKES
-
드래곤•2001.11.13 18:13event는 100% 동적 생성은 불가능한걸루 알고있고요. 미리 해당 Event에대한 함수를 만들어 놓고, 컨트롤 ...
-
버섯•2001.11.13 18:02훈 wrote: > 예를 들어, Button을 runtime에 생성했다면, > 그 클릭 이벤트는 어떻게 생성을 해야하는 지...
-
버섯•2001.11.13 18:05버섯 wrote: > 훈 wrote: > > 예를 들어, Button을 runtime에 생성했다면, > > 그 클릭 이벤트는 어떻게...
-
훈•2001.11.14 01:30parent개념을 모르겠네요.. Button2 := TButton.Create(nil); 로 생성했을 때는 parent가 어떻게 되는거...
-
- 죠스고기
- 2001.11.13 09:19
- 0 COMMENTS
- /
- 0 LIKES
-
- LOUIS
- •
- 2001.11.13 08:44
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.11.13 08:57안녕하세요. 최용일입니다. 공유는 반드시 되어 있어야 하겠구요... 그냥 자기 피시에서 읽는 것과 똑같...
-
- 목동
- •
- 2001.11.13 08:37
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.11.13 08:48안녕하세요. 최용일입니다. 'cd'값을 가지네요... Count가 범위를 벗어나면 읽을 수 있는 만큼만 카...
-
목동•2001.11.13 08:58
-
- 이무열
- •
- 2001.11.13 08:20
- 1 COMMENTS
- /
- 0 LIKES
-
나두초보~~•2001.11.13 17:21안녕하세요..^_^; 훔.... 저두 초보지만 몇자 적어 보겠습니다.. 님의 쿼리문을 보면 어느 시간대 검색...
-
- 채소
- 2001.11.13 07:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 나초보
- 2001.11.13 07:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁그미
- 2001.11.13 06:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보자
- •
- 2001.11.13 06:22
- 1 COMMENTS
- /
- 0 LIKES
-
parkisu•2001.11.21 03:16초보자 wrote: > MDI폼을 기본폼으로 데이터베이스 프로그램을 만들고 있습니다. > 그런데 문제에 봉착했...
-
- 꼴통
- •
- 2001.11.13 06:17
- 2 COMMENTS
- /
- 0 LIKES
-
궁그미•2001.11.13 06:51타이머를 이용하면 되지 않을까요?? 타이머로 일정 시간을 맞춰 준담에 원하시는 쿼리가 작동되게 한다...
-
꼴통•2001.11.13 18:46궁그미 wrote: > 타이머를 이용하면 되지 않을까요?? > > 타이머로 일정 시간을 맞춰 준담에 원하시는 ...
-
- 부
- 2001.11.13 06:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 털털이
- •
- 2001.11.13 05:28
- 1 COMMENTS
- /
- 0 LIKES
-
김지태•2001.11.13 19:57털털이 wrote: > dll A를 어플리케이션 B와 dll C가 동시에 사용하려고 합니다. > 이 때 B에서 A를 호출...
-
- 깔삼이
- 2001.11.13 05:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 홍길동
- 2001.11.13 04:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 박치곤
- 2001.11.13 04:05
- 0 COMMENTS
- /
- 0 LIKES
>
> procedure TMain.Source_menuClick(Sender: TObject);
> begin
> ShellExecute(Handle,'open','NotePad',PChar('c:a.txt'),'',SW_SHOWNORMAL);
> Timer1.Enabled := true;
> end;
>
> procedure TMain.Timer1Timer(Sender: TObject);
> var
> NoteHWND : HWND;
> S : array[0..255] of Char;
> begin
> StrPCopy(S, Form1.Caption);
> NoteHWND := GetForegroundWindow;
> SetWindowText(NoteHWND, @S);
> Timer1.Enabled := False; ---------------------------- ⓐ
> end;
>
> ⓐ 노트패드를 실행한후 MainForm의 Caption을 노트패드의 Caption바에 넣으려고하는데
> 저는 실행시 타이머를 실행해서 최상위폼의 핸들을 구해서 Caption을 바꿨습니다.
>
> 그런데 ⓐ에서 Timer1.Enabled := False를 하면 이상하게
> Caption이 'C:a.txt - 메모장'으로 바껴버리던데.. 왜그런지 모르겠어요.
> Timer1.Enabled := True로 해놓자니 Interval마다 깜빡이네요..
>
> 노트패드 캡션 바꾸는 법좀 알려주세요..
> 고수님들 부탁드립니다~~~~~~~~~~
>
>
지금 올리신 코딩대로 해도 제 컴에서는 이상없이 실행이 되는군요..
단지 핸들값을 구하는 부분에서 Timer를 써서 GetForegroundWindow로 핸들값을 구하는 것은 조금 안전하지 않은 것 같군요..
FindWindow('Notepad', nil)로 찾으시는 것이 나을 듯 합니다...