Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
当您希望创建一个新应用程序并单击 MDI 时,Delphi 会为您创建一个带有基本菜单项和图形的基本 MDI 应用程序。您可以运行程序并创建子窗口,并使用窗口菜单项将子窗口以级联、平铺等方式排列。
我的问题是:执行这些操作的代码在哪里?
我难住了。你打开pas文件编辑器,基本上什么都没有。它是如何做到的?
每个菜单项都链接到不同类型的TWindowsAction=class(TAction). 例如WindowsCascadeItem,菜单项链接到WindowsCascade1:TWindowsCascade(=class(TWindowAction))操作。因此代码隐藏在 VCL\STDActns.PAS 中的此类实现中。
TWindowsAction=class(TAction)
WindowsCascadeItem
WindowsCascade1:TWindowsCascade(=class(TWindowAction))