[El Sanchez]

как разрешить ввод только цифр в Edit1 на кастомной странице? »

Nullkree,

Скрытый текст

Код:

[Code]
#define A = (Defined UNICODE) ? "W" : "A"
const
  GWL_STYLE = (-16);
  ES_NUMBER = $00002000;

function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';

///////////////////////////
procedure InitializeWizard;
begin
  SetWindowLong(WizardForm.DirEdit.Handle, GWL_STYLE, GetWindowLong(WizardForm.DirEdit.Handle, GWL_STYLE) or ES_NUMBER);
end;