Un pequeño código por si te sirve para arrancar.
Puedes utilizar el proyecto de MDI que genera de ejemplo Delphi, para aplicaciones MDI (un pequeño editor).
Genera el proyecto de ejemplo, pon un botón y asígnale este código:
Código Delphi
[-]procedure TMainForm.Button1Click(Sender: TObject);
var
iActionClientItem: TActionClientItem;
ItemFichero: TActionClientItem;
iActionReciente: TCustomAction;
begin
ItemFichero := ActionManager1.FindItemByAction(FileExit1);
if Assigned(ItemFichero) then begin
ActionManager1.AddSeparator(ItemFichero , False);
iActionClientItem := ActionManager1.AddSeparator( ActionManager1.FindItemByAction(FileExit1) );
iActionReciente := TCustomAction.Create(Self);
iActionReciente.OnExecute := AbrirRecent;
iActionReciente.Caption := 'Nuevo elemento reciente';
iActionClientItem := ActionManager1.AddAction(iActionReciente, iActionClientItem) ;
end;
end;
Genera un separador, y un nuevo elemento con un texto.
Genera un procedimiento como este para el
Execute.
Código Delphi
[-]procedure TMainForm.AbrirRecent(Sender: TObject);
begin
ShowMessage('Abrir fichero con este nombre: ' + TCustomAction(Sender).Caption);
end;
Con eso conseguirás que ejecute el código.