Quote:
Originally Posted by Logrim
I have a little problem. I try to make a function to show text when mouse is over a button.. i need to put two diferent text in each button. My problem is that the first text work fine but with the second text i get an error "colon ( : ) expected".
This is the code of one of the button:
procedure MessageOnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
case hBtn of
NextBtn:
MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;
Thanks for your help
|
procedure MessageOnEnter(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseover.wav') , $0001);
case hBtn of
NextBtn: MessageTitleLabel.Caption:=ExpandConstant('{cm:Sta rtInstallTitle}');
end;
end;
procedure MessageOnLeave(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\mouseleave.wav' ), $0001);
case hBtn of
NextBtn: MessageLabel.Caption:=ExpandConstant('{cm:StartIns tall}');
end;
end;
...
BtnSetEvent(NextBtn,BtnEnterEventID,CallbackAddr(' MessageOnEnter'));
BtnSetEvent(NextBtn,BtnLeaveEventID,CallbackAddr(' MessageOnLeave'));