摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) btn1: TButton; Main1: TImage; pnl1: TPanel; btn2: TButton; procedure btn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure
阅读全文