写文章的时候 脑子有点乱 unit uMainForm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, GDIPOBJ,GDIPAPI,GDIPUTIL; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TOb…