S seaerwang Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #1 怎么样让一个放在image上的pannel(开始visble=false)在鼠标移到image上时显示,移出时不显示
Z zxbyh Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #5 procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin self.Panel1.Visible:=false; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin self.Panel1.Visible:=true; end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin self.Panel1.Visible:=false; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin self.Panel1.Visible:=true; end;
H happyloner Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #6 procedure imageMouseMove(Sender: TObject; Shift: TShiftState;X, Y: Integer); begin panel.visible:=true; end
procedure imageMouseMove(Sender: TObject; Shift: TShiftState;X, Y: Integer); begin panel.visible:=true; end