想請教當 FromStyle 設為 StayOnTop時無法 Debug |
|
答題得分者是：Zard
|
|
egg_huang
一般會員   發表：4 回覆：5 積分：1 註冊：2003-05-23 發送簡訊給我 |
|
|
Zard
尊榮會員  發表：24 回覆：396 積分：539 註冊：2003-11-26 發送簡訊給我 |
引言: 如主題(FromStyle 設為 StayOnTop)，我在程式中設一個停止點(Breakpoint)準備 Debug 時，那 From 一直擋在 Delphi 前面，我根本無法讓我 StepByStep Debug，有沒有那位前輩可以幫解決這問題(設為 StayOnTop是使用需求不可改變).試試下面這段碼, 它會在debug時先把fsStayOnTop屬性關掉, 但如果不是在debug, 則把fsStayOnTop屬性打開. 注意要加上紅字部份.
Function IsDebuggerPresent(): Boolean; external 'kernel32.dll';
procedure TForm1.FormCreate(Sender: TObject);
begin
if IsDebuggerPresent() then
FormStyle := fsNormal //In debug
else
FormStyle := fsStayOnTop;
end;
|
|
egg_huang
一般會員 發表：4 回覆：5 積分：1 註冊：2003-05-23 發送簡訊給我 |
感謝大大回應!!幫助我解決問題.
引言:引言: 如主題(FromStyle 設為 StayOnTop)，我在程式中設一個停止點(Breakpoint)準備 Debug 時，那 From 一直擋在 Delphi 前面，我根本無法讓我 StepByStep Debug，有沒有那位前輩可以幫解決這問題(設為 StayOnTop是使用需求不可改變).試試下面這段碼, 它會在debug時先把fsStayOnTop屬性關掉, 但如果不是在debug, 則把fsStayOnTop屬性打開. 注意要加上紅字部份. |
發表時間：2005-02-21 15:38:02
IP:211.20.xxx.xxx 未訂閱
系統時間：2024-11-23 5:07:12
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |