为什么这个窗口总是关不掉 |
缺席
|
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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |