为什么这个窗口总是关不掉 |
|
缺席
|
|
zhouying82
高階會員   發表：150 回覆：272 積分：189 註冊：2004-03-16 發送簡訊給我 |
我的代码如下，可以定时开启，但是就是到时间关不了窗口。哪里错了么？
i=SecondsBetween(DateTimePicker1.Time,DateTimePicker2.Time);//得到2者间隔的时间。 procedure TForm1.Timer1Timer(Sender: TObject); begin if FormatDateTime('hh:mm:ss',now)=FormatDateTime('hh:mm:ss',DateTimePicker1.time) then begin Form2:=TForm2.Create(Self); with form2 do begin FormStyle:=fsStayOnTop; ShowModal ; Timer2.Enabled :=true; end; end; end; procedure TForm1.Timer2Timer(Sender: TObject); var v:HWND; begin if i>0 then i:=i-1 else begin v:=FindWindow(nil,'tv'); postMessage(v,WM_CLOSE,0,0); end; end; 就是这个TV窗口不能自己关掉，我在tv窗口的onshow时间里面写了wmp.play;
------
断断续续的学了几年，还是一个初学者，永远支持Delphi ! |
|
P.D.
版主  發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
從程式來看, 你的 FORM2 應該等於 TV 吧,
可是你要FINDWINDOW 找 TV, 但我看不到 FORM2 = TV 的設定? ===================引 用 zhouying82 文 章=================== 我的代码如下，可以定时开启，但是就是到时间关不了窗口。哪里错了么？ i=SecondsBetween(DateTimePicker1.Time,DateTimePicker2.Time);//得到2者间隔的时间。 procedure TForm1.Timer1Timer(Sender: TObject); begin if FormatDateTime('hh:mm:ss',now)=FormatDateTime('hh:mm:ss',DateTimePicker1.time) then begin Form2:=TForm2.Create(Self); with form2 do begin FormStyle:=fsStayOnTop; ShowModal ; Timer2.Enabled :=true; end; end; end; procedure TForm1.Timer2Timer(Sender: TObject); var v:HWND; begin if i>0 then i:=i-1 else begin v:=FindWindow(nil,'tv'); postMessage(v,WM_CLOSE,0,0); end; end; 就是这个TV窗口不能自己关掉，我在tv窗口的onshow时间里面写了wmp.play; |
|
zhouying82
高階會員 發表：150 回覆：272 積分：189 註冊：2004-03-16 發送簡訊給我 |
發表時間：2013-07-18 13:17:41
IP:116.239.xxx.xxx 訂閱
系統時間：2024-04-27 5:22:04
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |