どのように私は、Delphi 2009で最近使用したファイルの一覧を作成することができますか?
-
25-09-2019 - |
質問
私はTActionManager、およびTActionMainMenuBarを持っている、と私はメインメニューバーに各MRUファイルのTActionClientItemオブジェクトを追加する方法を知っています。しかし、私は、リスト内の各MRUファイル用に別のアクションを作成しなければなりませんか?またはMRUファイルがクリックされたかに基づいて、アクションのOnExecuteイベントイベントにタグか何かを一つだけアクションを作成し、何とか合格する方法はありますか?
Delphiのヘルプは言う:「MRUリスト、サンプルコード、およびリスト内のアクションを見つけるための方法の詳細については、オンラインヘルプのFindItemByActionとFindItemByCaptionを参照してください。」しかし、私は役に立つものを対象に何かを見つけること、そして確かにサンプルコードではないことはできません。私はこれを成し遂げるためにサードパーティ製のコンポーネントを使用しないようにするには本当にたいと思います。
解決
あなたはとにかくので、彼らは明確なTAction
値を持つことができ、各メニュー項目の個別のCaption
を持っています。しかし、あなたは別のOnExecute
イベントハンドラを持っている必要はありません。イベントハンドラは、そのSender
パラメータのアクションへの参照を受け取ります。あなたのファイル名が保存されているリストを参照するために、送信者のTag
プロパティを使用します。 (DOはオープンにされたファイルを発見するためにCaption
プロパティを使用していない;。アクセラレータを追加したり、扱いにくいパスを略しのような素敵なことをやってからあなたを制限している)。
ドキュメントは、あまりにも、あなたがしたいと仮定し何。 FindItemByAction
は、特定のアクションが接続されているの最初のの項目を返します。すべてのあなたのMRUメニュー項目に単一のアクションを添付する場合は、メニューが選択されたあなたを伝えるために、その関数を使用することはできません。私はとにかくメニュー項目を探すために何の理由を見ていないので、一方、メニュー項目は、関連するアクションが希望よりも、それ以上の情報を保持していないでしょう。ただ、直接、アクションからの情報を使用します。
他のヒント
次のように私は、コードを使用しますが、あなたは、いくつかのまわりでそれをノックする必要があるかもしれません。非常に明らかに不足している唯一のものは、基本的にWindows API関数IAbbreviatedFileName
を包み込むPathCompactPath
です。あなたはいくつかの方法が非常に長いファイル名を省略したいと思うし、それは私の好みの選択です。申し訳ありませんが、コードのような巨大なダンプのために、しかし、誰かが中に使用の何かを見つけることができます!
type
TFileAwareMenuItem = class(TMenuItem)
private
FFileName: string;
public
property FileName: string read FFileName write FFilename;
end;
TMRU = class
private
FParent: array of TMenuItem;
FMenuItemStart: array of TMenuItem;
FMenuItemFinish: array of TMenuItem;
FMenuCount: Integer;
FRegistryKey: string;
FOwner: TCustomForm;
FMRUFileNames: TStringList;
FAction: TAction;
function GetCount: Integer;
function GetItem(Index: Integer): string;
procedure SetAction(Value: TAction);
procedure Read;
procedure Write;
procedure UpdateMenu;
public
constructor Create(const RegistrySubKey: string; const Owner: TCustomForm);
destructor Destroy; override;
procedure RegisterBoundingMenuItems(Start, Finish: TMenuItem);
procedure Add(const FileName: string);
procedure Delete(ItemNum: Integer);
property Count: Integer read GetCount;
property Action: TAction read FAction write SetAction;
property Items[Index: Integer]: string read GetItem; default;
end;
const
MRUSize=9;
AppRegistryKey='??put your apps registry key here??';
var
Registry: TRegistry;
constructor TMRU.Create(const RegistrySubKey: string; const Owner: TCustomForm);
begin
inherited Create;
FRegistryKey := Format('%s\%s', [AppRegistryKey, RegistrySubKey]);
FOwner := Owner;
FMRUFileNames := TStringList.Create;
Read;
end;
destructor TMRU.Destroy;
begin
Write;
FreeAndNil(FMRUFileNames);
inherited;
end;
procedure TMRU.RegisterBoundingMenuItems(Start, Finish: TMenuItem);
begin
inc(FMenuCount);
SetLength(FParent, FMenuCount);
SetLength(FMenuItemStart, FMenuCount);
SetLength(FMenuItemFinish, FMenuCount);
FMenuItemStart[FMenuCount-1] := Start;
FMenuItemFinish[FMenuCount-1] := Finish;
Assert(Start.Parent=Finish.Parent);
FParent[FMenuCount-1] := Start.Parent;
UpdateMenu;
end;
procedure TMRU.UpdateMenu;
var
Intf: IAbbreviatedFileName;
i, j: Integer;
FileName: string;
NewMenuItem: TFileAwareMenuItem;
begin
Intf := FOwner as IAbbreviatedFileName;
for i := 0 to FMenuCount-1 do begin
j := FMenuItemStart[i].MenuIndex+1;
while j<FMenuItemFinish[i].MenuIndex do begin
FParent[i][j].Free;
end;
for j := 0 to Count-1 do begin
NewMenuItem := TFileAwareMenuItem.Create(FMenuItemStart[i].Owner);
NewMenuItem.Action := Action;
NewMenuItem.FileName := FMRUFileNames[j];
FileName := ReplaceString(Intf.AbbreviatedFileName(NewMenuItem.FileName, False), '&', '&&');
NewMenuItem.Caption := Format('&%d. %s', [j+1, FileName]);
FParent[i].Insert(FMenuItemFinish[i].MenuIndex, NewMenuItem);
end;
FMenuItemStart[i].Visible := (Count>0) and (FMenuItemStart[i].MenuIndex>0);
FMenuItemFinish[i].Visible := (FMenuItemFinish[i].MenuIndex<FParent[i].Count-1);
end;
end;
procedure TMRU.Read;
var
i: Integer;
s: string;
begin
if Registry.OpenKey(HKEY_CURRENT_USER, FRegistryKey) then begin
FMRUFileNames.Clear;
for i := 0 to MRUSize-1 do begin
s := Registry.ReadString(IntToStr(i+1), '');
if s<>'' then begin
FMRUFileNames.Add(s);
end;
end;
UpdateMenu;
Registry.CloseKey;
end;
end;
procedure TMRU.Write;
var
i: Integer;
ValueName: string;
begin
if Registry.OpenKey(HKEY_CURRENT_USER, FRegistryKey, KEY_ALL_ACCESS, True) then begin
Registry.WriteInteger('Size', MRUSize);
for i := 0 to MRUSize-1 do begin
ValueName := IntToStr(i+1);
if i<Count then begin
Registry.WriteString(ValueName, FMRUFileNames.Strings[i]);
end else begin
if Registry.ValueExists(ValueName) then begin
Registry.DeleteValue(ValueName);
end;
end;
end;
Registry.CloseKey;
end;
end;
function TMRU.GetCount: Integer;
begin
Result := Min(FMRUFileNames.Count, MRUSize);
end;
function TMRU.GetItem(Index: Integer): string;
begin
Result := FMRUFileNames[Index];
end;
procedure TMRU.SetAction(Value: TAction);
begin
if Value<>FAction then begin
FAction := Value;
UpdateMenu;
end;
end;
procedure TMRU.Add(const FileName: string);
var
i, Index: Integer;
begin
Index := -1;
for i := 0 to FMRUFileNames.Count-1 do begin
if FileNamesEqual(FileName, FMRUFileNames[i]) then begin
Index := i;
break;
end;
end;
if Index<>-1 then begin
FMRUFileNames.Move(Index, 0);
end else begin
FMRUFileNames.Insert(0, FileName);
if FMRUFileNames.Count>MRUSize then begin
FMRUFileNames.Delete(FMRUFileNames.Count-1);
end;
end;
UpdateMenu;
Write;
end;
procedure TMRU.Delete(ItemNum: Integer);
begin
FMRUFileNames.Delete(ItemNum);
UpdateMenu;
end;
initialization
Registry := TRegistry.Create;
if not Registry.KeyExists(AppRegistryKey) then begin
Registry.CreateKey(AppRegistryKey);
end;
finalization
FreeAndNil(Registry);