|
procedure MessageOnEnter(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
case hBtn of
NextBtn:
begin
MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;
end;
end;
procedure MessageOnLeave(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseleave.wav' ), $0001);
case hBtn of
NextBtn:
begin
MessageTitleLabel.Caption:='';
MessageLabel.Caption:='';
end;
end;
end;
|