摘要：unit dy219;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm) procedure FormCreate(Sender: TObject);private procedure sysmenu(var msg: twmmenuselect);message wm_syscommand;{ Private declarations }public{ Public declarations }end.. 阅读全文