線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1288
推到 Plurk!
推到 Facebook!

請問關於MessageBox中,Help按鍵的使用方法??

尚未結案
tglego
一般會員


發表:11
回覆:14
積分:5
註冊:2004-06-02

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-04-27 10:36:52 IP:220.130.xxx.xxx 未訂閱
如題!!我希望在按下Help按鈕後可以跑出一個Form!!不知該如何作!! 請各位大大不吝賜教!!
jest0024
高階會員


發表:11
回覆:310
積分:224
註冊:2002-11-24

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-04-27 23:05:56 IP:211.74.xxx.xxx 未訂閱
引言: 如題!!我希望在按下Help按鈕後可以跑出一個Form!!不知該如何作!! 請各位大大不吝賜教!!
使用TApplicationEvents.OnHelp事件!!
tglego
一般會員


發表:11
回覆:14
積分:5
註冊:2004-06-02

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-04-28 09:05:01 IP:220.130.xxx.xxx 未訂閱
抱歉!!可以說的詳細一點嗎?? 我現在有一個訊息: MessageBox(NULL,"氣壓不正常","工作視窗",MB_YESNO MB_HELP); 我希望按下"Help"後,可以出現一個Form,讓我能列出一些針對此訊息的處理辦法!!!那要在此MessageBox的前後怎麼寫呢??
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-04-28 11:00:05 IP:218.15.xxx.xxx 未訂閱
引言: 抱歉!!可以說的詳細一點嗎?? 我現在有一個訊息: MessageBox(NULL,"氣壓不正常","工作視窗",MB_YESNO MB_HELP); 我希望按下"Help"後,可以出現一個Form,讓我能列出一些針對此訊息的處理辦法!!!那要在此MessageBox的前後怎麼寫呢??
 
tglego您好:
procedure TForm1.Button1Click(Sender: TObject);
begin
if APPlication.MessageBox('氣壓不正常','工作視窗',MB_YESNO MB_HELP)=IDYes then
  showmessage('Yes');
end;    function TForm1.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
  Form2.Show;
end;
这是不是您所要
    <>
===============================
 为什么经过多年以后,得失的过程如此冷漠
===============================

        
tglego
一般會員


發表:11
回覆:14
積分:5
註冊:2004-06-02

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-04-28 11:50:36 IP:220.130.xxx.xxx 未訂閱
可以了!!感謝大大!!^_^
系統時間:2024-05-17 12:50:32
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!