如何將Chart或Panel複製一份貼到別的地方? |
|
尚未結案
|
|
aresustar
一般會員   發表：9 回覆：8 積分：3 註冊：2008-10-21 發送簡訊給我 |
目前小弟遇到的問題是這樣
想在某較小的Chart CoubleClick~即出現將原圖放大的Chart~ 由於畫圖的程式相當繁瑣~我不太想創新的Form~然後把程式貼過去 因此我目前的做法是這樣 procedure TSubFrm.Chart1DblClick(Sender: TObject); var tmpForm: TForm; pnGraph: TPanel; Chart2: TChart; begin try tmpForm := TForm.Create(Self); pnGainGraph.Parent := tmpForm; tmpForm.ShowModal; finally pnGainGraph.Parent := HPanel; //原來的地方 tmpForm.Free; tmpForm := nil; end; end; 這樣的確可以達到我想要的效果~有個放大的圖Show出來 但也有個問題 pnGainGraph.Parent := tmpForm; 因為這行的關係~圖跑到ShowModal的Form上面~原來的地方就不見了 雖然我在finally指定回去~但這不是我想要的 我想要的是原來的圖不受影響~而ShowModal的Form也有個放大的圖 請問該怎麼解決這個問題?感謝 |
|
leveon
資深會員   發表：30 回覆：389 積分：303 註冊：2012-02-12 發送簡訊給我 |
|
|
P.D.
版主  發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
一個想法(沒看你的東西, 不是很清楚)
如果把chart 定成 alignt:= alclitnt, 那只要隨視窗大小, chart 會自動縮放, 是否可達成你的目的? ===================引 用 aresustar 文 章=================== 目前小弟遇到的問題是這樣 想在某較小的Chart CoubleClick~即出現將原圖放大的Chart~ 由於畫圖的程式相當繁瑣~我不太想創新的Form~然後把程式貼過去 因此我目前的做法是這樣 procedure TSubFrm.Chart1DblClick(Sender: TObject); var tmpForm: TForm; pnGraph: TPanel; Chart2: TChart; begin try tmpForm := TForm.Create(Self); pnGainGraph.Parent := tmpForm; tmpForm.ShowModal; finally pnGainGraph.Parent := HPanel; //原來的地方 tmpForm.Free; tmpForm := nil; end; end; 這樣的確可以達到我想要的效果~有個放大的圖Show出來 但也有個問題 pnGainGraph.Parent := tmpForm; 因為這行的關係~圖跑到ShowModal的Form上面~原來的地方就不見了 雖然我在finally指定回去~但這不是我想要的 我想要的是原來的圖不受影響~而ShowModal的Form也有個放大的圖 請問該怎麼解決這個問題?感謝 |
發表時間：2012-06-28 11:10:12
IP:202.39.xxx.xxx 訂閱
系統時間：2024-11-21 19:39:14
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |