procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

        panel11.Visible:=false;      panel22.Visible:=false;     panel33.Visible:=false;
        panel44.Visible:=false;      panel55.Visible:=false;
        panel66.Visible:=false;      panel77.Visible:=false;     panel88.Visible:=false;

  s:=true;
  a:=false;
        panel1.Visible:=true;      panel2.Visible:=true;     panel3.Visible:=true;
        panel4.Visible:=true;      panel5.Visible:=true;
        panel6.Visible:=true;      panel7.Visible:=true;     panel8.Visible:=true;
        panel1.top:=edit1.Top-6;
        panel1.Left:=edit1.Left-6;
        panel2.Top:=edit1.Top+(edit1.Height div 2)-3;
        panel2.Left:=edit1.Left-6;
        panel3.Top:=edit1.Top+edit1.Height;
        panel3.Left:=edit1.Left-6;
        panel4.Top:=edit1.top-6;
        panel4.Left:=edit1.Left+(edit1.Width div 2);
        panel5.Top:=edit1.Top+edit1.Height;
        panel5.Left:=edit1.Left+(edit1.Width div 2);
        panel6.Top:=edit1.Top-6;
        panel6.Left:=edit1.Left+edit1.Width;
        panel7.Top:=edit1.Top+(edit1.Height div 2)-3;
        panel7.Left:=edit1.Left+edit1.Width;
        panel8.top:=edit1.Top+edit1.Height;
        panel8.Left:=edit1.Left+edit1.Width;
end;

procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
        if s=true then
        begin
        a:=false;
        s:=false;
        panel1.Visible:=true;      panel2.Visible:=true;     panel3.Visible:=true;
        panel4.Visible:=true;      panel5.Visible:=true;
        panel6.Visible:=true;      panel7.Visible:=true;     panel8.Visible:=true;
        panel1.top:=edit1.Top-6;
        panel1.Left:=edit1.Left-6;
        panel2.Top:=edit1.Top+(edit1.Height div 2)-3;
        panel2.Left:=edit1.Left-6;
        panel3.Top:=edit1.Top+edit1.Height;
        panel3.Left:=edit1.Left-6;
        panel4.Top:=edit1.top-6;
        panel4.Left:=edit1.Left+(edit1.Width div 2);
        panel5.Top:=edit1.Top+edit1.Height;
        panel5.Left:=edit1.Left+(edit1.Width div 2);
        panel6.Top:=edit1.Top-6;
        panel6.Left:=edit1.Left+edit1.Width;
        panel7.Top:=edit1.Top+(edit1.Height div 2)-3;
        panel7.Left:=edit1.Left+edit1.Width;
        panel8.top:=edit1.Top+edit1.Height;
        panel8.Left:=edit1.Left+edit1.Width;
        end;
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
a:=false;
s:=false;
        panel1.Visible:=false;      panel2.Visible:=false;     panel3.Visible:=false;
        panel4.Visible:=false;      panel5.Visible:=false;
        panel6.Visible:=false;      panel7.Visible:=false;     panel8.Visible:=false;
       //**********
        panel11.Visible:=false;      panel22.Visible:=false;     panel33.Visible:=false;
        panel44.Visible:=false;      panel55.Visible:=false;
        panel66.Visible:=false;      panel77.Visible:=false;     panel88.Visible:=false;

end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
begin if a=true then
        begin
        a:=false;
        s:=false;
        panel1.Visible:=false;      panel2.Visible:=false;     panel3.Visible:=false;
        panel4.Visible:=false;      panel5.Visible:=false;
        panel6.Visible:=false;      panel7.Visible:=false;     panel8.Visible:=false;

        panel11.Visible:=true;
        panel22.Visible:=true;
        panel33.Visible:=true;
        panel44.Visible:=true;
        panel55.Visible:=true;
        panel66.Visible:=true;
        panel77.Visible:=true;
        panel88.Visible:=true;
        panel11.top:=Button1.Top-6;
        panel11.Left:=Button1.Left-6;
        panel22.Top:=Button1.Top+(Button1.Height div 2)-3;
        panel22.Left:=Button1.Left-6;
        panel33.Top:=Button1.Top+Button1.Height;
        panel33.Left:=Button1.Left-6;
        panel44.Top:=Button1.top-6;
        panel44.Left:=Button1.Left+(Button1.Width div 2);
        panel55.Top:=Button1.Top+Button1.Height;
        panel55.Left:=Button1.Left+(Button1.Width div 2);
        panel66.Top:=Button1.Top-6;
        panel66.Left:=Button1.Left+Button1.Width;
        panel77.Top:=Button1.Top+(Button1.Height div 2)-3;
        panel77.Left:=Button1.Left+Button1.Width;
        panel88.top:=Button1.Top+Button1.Height;
        panel88.Left:=Button1.Left+Button1.Width;
        end;
end;
 procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    a:=true;
    s:=false;
        panel1.Visible:=false;      panel2.Visible:=false;     panel3.Visible:=false;
        panel4.Visible:=false;      panel5.Visible:=false;
        panel6.Visible:=false;      panel7.Visible:=false;     panel8.Visible:=false;

        p

上一页  [1] [2] [3]  下一页