全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2786
推到 Plurk!
推到 Facebook!

設formstyle=fsStayOnTop,BoderStyle = bsNone 無法最上層顯示

尚未結案
danielx2000
一般會員


發表:29
回覆:33
積分:22
註冊:2002-09-02

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-10-16 22:07:50 IP:218.163.xxx.xxx 未訂閱
請問一下 我將視窗的formstyle = fsStayOnTop 當BoderStyle = bsSizeable 時可以最上層顯示 而當BoderStyle = bsNone 時卻又不行 不知是什麼原因 謝謝各位的回答
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-10-16 22:45:58 IP:202.39.xxx.xxx 未訂閱
小弟試是可以的. 可以貼出您的相關設定嗎?    --- 歡迎光臨 KTop 研究院
danielx2000
一般會員


發表:29
回覆:33
積分:22
註冊:2002-09-02

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-10-18 00:46:35 IP:218.164.xxx.xxx 未訂閱
我的設定是: 我用一主form上的按鍵下 Form2.Show 開啟FORM2 form2.formstyle = fsStayOnTop form2.Boderstyle= fsNone 結果就是無法最上層顯示 是何緣故?
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-10-18 01:13:56 IP:63.84.xxx.xxx 未訂閱
您好!    請問您所說的Form2的FormStyle屬性值和BorderStyle屬性值是在設計時期設定的, 還是執行時候使用程式碼設定的, 如果是用程式碼設定的話, 請將此兩句程式碼寫在Form2的OnCreate事件中試試看.    另外, 小弟覺得您這樣設計的目的, From2應該是一句訊息提示的視窗吧, 若是如此, 您可使用Form2.ShowModal的方法來開啟Form2視窗.    參考看看!    ===================== 努力,相信會獲得美麗! 忻晟
------
忻晟
danielx2000
一般會員


發表:29
回覆:33
積分:22
註冊:2002-09-02

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-10-18 09:00:00 IP:163.29.xxx.xxx 未訂閱
你好: 設定均是在DESIGN 階段就決定好了的 我程式的目的是要設計一控制介面,共有全畫面的操作畫面及小型的控制畫面(類似DREYE)彼此間可以互換,當有一顯示時,另一個就隱藏 ,並非是秀出MESSAGE 就是這樣囉 有解嗎 感謝回答
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-10-18 09:24:03 IP:63.84.xxx.xxx 未訂閱
您好﹗    小弟試了一下﹐也是可以的﹐如果將BoderStyle屬性值設為bsNOne﹐此Form將沒有標題欄﹐是否是因為這個原因﹐而Form2的顯示位置又在Form的範圍內﹐所以誤認為其沒有StayOnTop顯示呢﹖建議您將Form2的顏色換成和Form1不一樣的﹐就可以先做區分您的設計是否可行﹗    參考看看﹗    ===================== 努力,相信會獲得美麗! 忻晟
------
忻晟
danielx2000
一般會員


發表:29
回覆:33
積分:22
註冊:2002-09-02

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-10-19 00:05:52 IP:218.164.xxx.xxx 未訂閱
附上我的程式    
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    uses Unit2;    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin
   Self.Hide;
   form2.show;
end;    end.        unit Unit2;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ToolWin;    type
  TForm2 = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form2: TForm2;    implementation    {$R *.dfm}    procedure TForm2.ToolButton1Click(Sender: TObject);
begin
   Application.Terminate ;
end;    end.    其中
form2.formStyle = fsStayOnTop
form2.BoderStyle = bsNone    
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-10-20 13:25:23 IP:202.39.xxx.xxx 未訂閱
您的不行是什麼意思? Form2 會被其它 Form 蓋過嗎?    --- 歡迎光臨 KTop 研究院
danielx2000
一般會員


發表:29
回覆:33
積分:22
註冊:2002-09-02

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-10-20 21:27:37 IP:218.163.xxx.xxx 未訂閱
沒錯!! form2就是會被其他FORM蓋過, 若是可以的話,請把你測試過可以RUN的程式POST給我測試好嗎? 謝謝
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-10-20 21:36:44 IP:202.39.xxx.xxx 未訂閱
所謂其它的 Form 是指同一支程式的 Form 或者是其它程式的 Form?    --- 歡迎光臨 KTop 研究院
danielx2000
一般會員


發表:29
回覆:33
積分:22
註冊:2002-09-02

發送簡訊給我
#11 引用回覆 回覆 發表時間:2003-10-21 13:26:28 IP:61.218.xxx.xxx 未訂閱
會被主form以及其他Ap 的form 蓋過 真是奇怪
系統時間:2024-07-05 4:22:26
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!