也是關於存檔問題 |
尚未結案
|
turbocks
一般會員 發表:9 回覆:13 積分:4 註冊:2004-12-16 發送簡訊給我 |
|
chris_shieh
高階會員 發表:46 回覆:308 積分:240 註冊:2004-04-26 發送簡訊給我 |
這跟Action Manager 沒啥關係
他只是一項action集中管理作法
Button 是透過 TButton.Action 來跟Action連結 概念:
[ActionManager] 管理很多Action
[Action1] Caption, Enabled,.... OnExecute, OnAccept...
[Action2] Caption, Enabled,.... OnExecute, OnAccept...
[Action3] Caption, Enabled,.... OnExecute, OnAccept...
....
.... 其他物件共用Action:
Button1.Action:=Action1; //Button1 連結 Action1
Button2.Action:=Action2; //Button2 連結 Action2
MenuItem1.Action:=Action1; //MenuItem1 連結 Action1
MenuItem2.Action:=Action2; //MenuItem2 連結 Action2
... 程式碼請參考
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=63261
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdActns, ActnList, XPStyleActnCtrls, ActnMan, Grids, StdCtrls; type TForm1 = class(TForm) StringGrid1: TStringGrid; ActionManager1: TActionManager; FileOpen1: TFileOpen; FileSaveAs1: TFileSaveAs; Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); private procedure FileSaveas1Accept(Sender: TObject); procedure FileOpen1Accept(Sender: TObject); { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FileOpen1Accept(Sender: TObject); var slData:TStringList; i:integer; begin slData:=TStringList.Create; slData.LoadFromFile(FileOpen1.Dialog.FileName); for i := 0 to slData.Count-1 do StringGrid1.Rows[i].CommaText:=slData[i]; slData.Free; end; procedure TForm1.FileSaveas1Accept(Sender: TObject); var slData:TStringList; i:integer; begin slData:=TStringList.Create; for i := 0 to StringGrid1.RowCount-1 do slData.Add(StringGrid1.Rows[i].CommaText); slData.SaveToFile(FileSaveas1.Dialog.FileName); slData.Free; end; procedure TForm1.FormCreate(Sender: TObject); var i,j:integer; begin StringGrid1.FixedCols:=0; StringGrid1.FixedRows:=0; Button1.Action:=FileOpen1; //建立Action連結 Button2.Action:=FileSaveas1; //建立Action連結 FileOpen1.OnAccept:=FileOpen1Accept; //在Action OnAccept中處理動作 FileSaveas1.OnAccept:=FileSaveas1Accept; //在Action OnAccept中處理動作 end; end.@瞭解越多.懂得越少@ |
turbocks
一般會員 發表:9 回覆:13 積分:4 註冊:2004-12-16 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |