畫面切換(像IE一樣) |
尚未結案
|
jasonchen613
初階會員 ![]() ![]() 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
請問一下
程式中若要做到畫面切換除了使用mdi之外
有其他的方法嗎?
我目前是使用mdi的方式來切換畫面
但是我不想讓它看起來是一個一個的form
我希望是像ie這樣
上面的功能表都不會變動
只有內容更動而已
請問該如何去做呢,謝謝 以上的內容是我想問的 這個問題曾經有討論過 但是 我還是看不太懂 討論的結果是 在WIN31裡有一個NOTEBOOK元件 用這個元件就能做出
請問這個元件要如何使用啊? 詳細的討論在以下的連結 麻煩各位大大了
http://delphi.ktop.com.tw/topic.php?topic_id=20009
|
ko
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:28 回覆:785 積分:444 註冊:2002-08-14 發送簡訊給我 |
jasonchen613 你好:
到這裡looklook
http://home.pchome.com.tw/home/delphiwww/
別忘了給 delphiwww 3Q一下
------
====================== 昏睡~ 不昏睡~ 不由昏睡~ |
jasonchen613
初階會員 ![]() ![]() 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
恩其實我不是要做ie瀏覽器 我是要做一個資料庫查詢系統 只是我想要擴充一
個具有"切換"功能的botton 一按切換就能像ie一樣 換到另一個畫面
而不是另開一個form出來
一按切換 就會換到form4的畫面 最上方的"檔案" "列印" "關於"
不變 原本我的這個程式只能瀏覽一筆資料所以我想做一個form4出來
(在form4的部分我主要是想做 可顯示全部的資料) 如下圖所示 : 主畫面:
|
ko
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:28 回覆:785 積分:444 註冊:2002-08-14 發送簡訊給我 |
|
cocodi
一般會員 ![]() ![]() 發表:21 回覆:65 積分:17 註冊:2002-06-27 發送簡訊給我 |
你好:
我是這麼作,在FORM 中放兩個Panel,利用Hot Key 來切換它們的 visible
實作如下: unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ActnList, StdCtrls; type
TForm1 = class(TForm)
PL1: TPanel;
PL2: TPanel;
ActionList1: TActionList;
Action1: TAction;
procedure Action1Execute(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
implementation {$R *.dfm} procedure TForm1.Action1Execute(Sender: TObject);
begin
PL2.Visible := PL1.Visible;
PL1.Visible := (not PL1.Visible);
end; procedure TForm1.FormPaint(Sender: TObject);
begin
PL1.Visible := True;
PL2.Visible := False;
PL1.Caption:='[F12] 切換';
PL2.Caption:='[F12] 切換';
PL1.Align := alClient;
PL2.Align := alClient;
end; end.
|
artist1002
高階會員 ![]() ![]() ![]() ![]() 發表:2 回覆:155 積分:151 註冊:2002-09-26 發送簡訊給我 |
|
jasonchen613
初階會員 ![]() ![]() 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
bruce0211
版主 ![]() ![]() ![]() ![]() ![]() 發表:157 回覆:668 積分:279 註冊:2002-06-13 發送簡訊給我 |
|
jasonchen613
初階會員 ![]() ![]() 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
cashxin2002
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 我曾經也做過同樣的環境﹐就是利用TPageControl物件﹐再使用其TTabSheet來分開顯示單筆資料和整個資料表的資料﹐但并未出現您說的這類現象﹐如果在建立TTabSheet時沒有錯誤的話﹐請查看一下TPageControl物件的OnChanging和OnChange事件中有無相關的程式碼﹒ 后來又仔細看了一下畫面中您加入的元件﹐其中有一個TMainMenu的物件﹐是否有可能是這個物件對其顯示的影響﹐故請您調整一下TPageControl物件的位置﹒ 試試看﹐有問題再Post﹒ =====================
努力,相信會獲得美麗!
忻晟 發表人 - cashxin2002 於 2003/10/09 17:44:25
------
忻晟 |
jasonchen613
初階會員 ![]() ![]() 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
cashxin2002
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 您的這個範例﹐我已經下載查看了﹐DBGrid1元件會遮住TTabSheet1中元件的原因是DBGrid1元件并不是放在TTabSheet2上﹐而是放在Form1上﹐這樣無論您如何切換TTabSheet1和TTabSheet2﹐DBGrid1元件都會顯示在最上層﹒ 解決的方法﹕請在Form中移除掉DBGrid1元件﹐然后把當前畫面切換到TTabSheet2(在群組名稱上按下后﹐還需要在群組名稱下方的空白Form上用Mouse點擊一下)﹐使其成為當前作用中的元件(您可從Object TreeView視窗中查看當前作用中的元件名稱)﹐而后再在TTabSheet2上加一個DBGrid1元件﹐將其DataSource屬性值設定為DataSource1即可﹒ 參考看看﹗ =====================
努力,相信會獲得美麗!
忻晟
------
忻晟 |
jasonchen613
初階會員 ![]() ![]() 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
cashxin2002
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
|
jasonchen613
初階會員 ![]() ![]() 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
俗話說的好:勤能補拙 所以希望我的努力可以補我的拙
也很感激你一直熱心的幫我解題 anyway
我主要的意思是 想加一個切換的botton 一按切換會跳到另一個視窗
做切換的目的 是因為我現前的程式 只能對單筆資料做編輯 搜尋
所以希望能有一個切換botton 能切換到 多筆資料的搜尋 編輯
所以在多筆資料下 就會用到DBGrid1 因為我下圖的程式 還未加入
TPageControl物件 如果加入的話 我的程式就要重新在編輯重做
所以 不知能不能 按一下切換botton 就能跳入另一個可以對
多筆資料的搜尋 編輯視窗 這就是我想問的 不知 這樣是否清楚了 如下圖在最右邊有個切換botton:
|
cashxin2002
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 如果不想重新更改您的程式碼﹐最快的方法就是重開一個Form(比如說為Form2)﹐然后在新開的Form2中加上一個DBGrid元件和一個DBNavigator元件﹐其DataSource屬性值都對應Form1中的DataSource元件名稱﹒ 最后在切換Button的OnClick事件中﹕
begin Form2.ShowModal; end; //用ShowModal的方法來顯示Form2﹐在Form2結束之前﹐不能切換到其它的Form中﹐若需允許切換其它的Form﹐可將ShowModal改為Show即可參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟
------
忻晟 |
jasonchen613
初階會員 ![]() ![]() 發表:67 回覆:75 積分:28 註冊:2003-03-25 發送簡訊給我 |
|
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |