简单的问题(50分)

  • 主题发起人 主题发起人 seaerwang
  • 开始时间 开始时间
S

seaerwang

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么样让一个放在image上的pannel(开始visble=false)在鼠标移到image上时显示,移出时不显示
 
在鼠标移动事件里面写啊!
 
怎么写呢?我也知道啊,但不会
 
就在Image的MauseMove事件中写
 
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 imageMouseMove(Sender: TObject; Shift: TShiftState;X, Y: Integer);
begin
panel.visible:=true;
end
 
接受答案了.
 
后退
顶部