unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, jpeg;
const LMouseDown=False;
type
TForm1 = class(TForm)
Edit1: TEdit;
Panel2: TPanel;
Panel1: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
Panel8: TPanel;
Panel11: TPanel;
Panel22: TPanel;
Panel33: TPanel;
...[ 查看全文 ]