影像MDI應用程式 ActiveMDIChild存檔問題 |
|
答題得分者是：hahalin
|
|
alen
一般會員   發表：3 回覆：6 積分：1 註冊：2004-03-19 發送簡訊給我 |
以下程式問題可能很多，希望先進不吝指導!! procedure TMainForm.FileSaveExecute(Sender: TObject);
type
pTheChild = ^TMDIChild;
pThePicture = ^TPicture;
var
TheChild : pTheChild ;
ThePicture : pThePicture ;
i,j : integer;
begin
i := 0;
j := 0;
for i := 0 to MDIChildCount-1 do
if MDIChildren[i]=ActiveMDIChild then
j:=i;
TheChild := ^TForm(MDIChildren[j]); //問題出在這裡，指標搞不懂
ThePicture := TheChild.Image.Picture;
ThePicture.SaveToFile(TheChild.Caption);
end;
|
|
jest0024
高階會員  發表：11 回覆：310 積分：224 註冊：2002-11-24 發送簡訊給我 |
引言: 以下程式問題可能很多，希望先進不吝指導!! procedure TMainForm.FileSaveExecute(Sender: TObject); type pTheChild = ^TMDIChild; //問題一TMDIChild原來就是指標？為何在轉成指標的指標？ //Type // PPointer = ^Pointer;? pThePicture = ^TPicture; var TheChild : pTheChild ; ThePicture : pThePicture ; i,j : integer; begin i := 0; j := 0; for i := 0 to MDIChildCount-1 do if MDIChildren[i]=ActiveMDIChild then j:=i; TheChild := @MDIChildren[j]; //問題出在這裡，指標搞不懂 //問題二？TheChild為指標以下不能這樣用了!! ThePicture := TheChild.Image.Picture; THePicture := @TheChild^.Image.Picture; ThePicture.SaveToFile(TheChild.Caption); ThePicture^.SaveToFile(TheChild.Caption); end;簡單的說 type pTheChild = ^TMDIChild; pThePicture = ^TPicture; 以上的宣告根本沒用呀?! procedure TMainForm.FileSaveExecute(Sender: TObject); var TheChild : TMDIChild; ThePicture : TPicture ; i,j : integer; begin i := 0; j := 0; for i := 0 to MDIChildCount-1 do if MDIChildren[i]=ActiveMDIChild then j:=i; TheChild := MDIChildren[j]; ThePicture := TheChild.Image.Picture; ThePicture.SaveToFile(TheChild.Caption); end; 學而時習之不亦樂乎! 發表人 - jest0024 於 2004/05/14 13:49:31 |
|
alen
一般會員 發表：3 回覆：6 積分：1 註冊：2004-03-19 發送簡訊給我 |
這個程式可同時開啟很多MDIChild Form,每個MDIChild Form裡面只有一個Image元件，在main form裡面按下save功能表
希望能把當前ActiveMDIChild裡面的Image存檔
for 迴圈可以找到ActiveMDIChild
我認為應該不用create一個新的MDIChild去對應(執行時會跑出來)
所以我想利用一個指標變數TheChild去對應ActiveMDIChild
jest0024 所修正的程式出現以下錯誤訊息
TheChild := @MDIChildren[j];// [Error] Variable required 希望 jest0024 及 先進們再指教，謝謝!!
|
|
hahalin
版主  發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
|
|
alen
一般會員 發表：3 回覆：6 積分：1 註冊：2004-03-19 發送簡訊給我 |
|
|
hahalin
版主 發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
|
|
alen
一般會員 發表：3 回覆：6 積分：1 註冊：2004-03-19 發送簡訊給我 |
|
|
jest0024
高階會員 發表：11 回覆：310 積分：224 註冊：2002-11-24 發送簡訊給我 |
|
|
alen
一般會員 發表：3 回覆：6 積分：1 註冊：2004-03-19 發送簡訊給我 |
發表時間：2004-05-14 11:08:35
IP:218.162.xxx.xxx 未訂閱
系統時間：2024-07-07 1:20:09
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |