Delphi代码 unit Unit1; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, Buttons, DdeMan, StdCtrls; type TTitleBtnForm = class(TForm) Button1: TButton; procedure FormResize(Sender: TObject); private Tit