[altef_4]

Originally Posted by y_thelastknight

no bro i need like this, but it not working.

procedure AboutButtonOnClick(Sender: TObject);
begin

If CurPageID=wpWelcome then
begin
MsgBox('Hello.', mbInformation, MB_OK);
end;

If CurPageID=wpSelectDir then
begin
MsgBox('Hello.', mbInformation, MB_OK);
end;

end;

[code]
var
  PageID: integer;

procedure CurPageChanged(CurPageID: integer);
begin
  PageID:=CurPageID;
end;

procedure AboutButtonOnClick(Sender: TObject);
begin
case PageID of
  wpWelcome: MsgBox('wpWelcome', mbInformation, MB_OK);
  wpLicense: MsgBox('wpLicense', mbInformation, MB_OK);
  wpPassword: MsgBox('wpPassword', mbInformation, MB_OK);
  wpInfoBefore: MsgBox('wpInfoBefore', mbInformation, MB_OK);
  wpUserInfo: MsgBox('wpUserInfo', mbInformation, MB_OK);
  wpSelectDir: MsgBox('wpSelectDir', mbInformation, MB_OK);
  wpSelectComponents: MsgBox('wpSelectComponents', mbInformation, MB_OK);
  wpSelectProgramGroup: MsgBox('wpSelectProgramGroup', mbInformation, MB_OK);
  wpSelectTasks: MsgBox('wpSelectTasks', mbInformation, MB_OK);
  wpReady: MsgBox('wpReady', mbInformation, MB_OK);
  wpPreparing: MsgBox('wpPreparing', mbInformation, MB_OK);
  wpInstalling: MsgBox('wpInstalling', mbInformation, MB_OK);
  wpInfoAfter: MsgBox('wpInfoAfter', mbInformation, MB_OK);
  wpFinished: MsgBox('wpFinished', mbInformation, MB_OK);
end;
end;