Cita:
Empezado por noob
...¿Es esto posible?
|
Sí. Un buen ejemplo de lo que buscas lo tiene la propia VCL en la unidad Menus.pas:
Código Delphi
[-]
unit Menus;
...
interface
...
var
PopupList: TPopupList;
...
implementation
...
initialization
...
PopupList := TPopupList.Create;
...
finalization
...
PopupList.Free;
...
end.
(encontrado con Find in Files en Delphi 7)
Observa cómo la unidad ActnPopup.pas hace uso del objeto global:
Código Delphi
[-]
unit ActnPopup;
interface
uses Classes, Controls, Menus, ActnMenus, XPActnCtrls, ActnMan, ActnList;
...
implementation
uses SysUtils, Windows, Messages, Forms;
...
procedure TCustomActionPopupMenuEx.ExecAction(Action: TContainedAction);
begin
PostMessage(PopupList.Window, WM_COMMAND, TMenuItem(FSelectedItem.Tag).Command, 0);
end;
...
end.
(encontrado con Find in Files en Delphi 7)
Espero te sirva, no dejes de comentarnos.
Al González