SatHan,
Цитата SatHan:
как поменять скорость выкатки/закатки окна побыстрее? »
|
Timer := SetTimer(WizardForm.Handle, 1,
5 , CallbackAddr('Timer1'));
в таймере выполняется процедура Timer1
5 - частота обновления таймера (в миллисекундах (в 1 секунде 1000)). Иначе говоря выполнения указанной процедуры
в самой процедуре стоит
....панель.сверху := панель.свеху + 3 пикселя
SettingPanel.Top := SettingPanel.Top + ScaleY(3);
те мы каждые пять миллисекунд двигаем панель на 3 пикселя
MogilShik2007,
Код:
![Выделить весь код](images/misc/selectcode.png)
procedure CurStepChanged(CurStep: TSetupStep);
var
ErrorCode: Integer;
begin
если (этап установки = после нажатия на кнопку завершить) и (такой_чекбокс.отмечен) то Запустить(расшифровать константу(расположение экзешника)). парамеьров нет, рабочая папка, спрятать консольное окно, не ждать, Переменная в которую пишется код ошибки))
if (CurStep = ssDone) and (Run_CheckBox.Checked = True) then Exec(ExpandConstant('{app}\{#MyAppExeName}'), '', ExpandConstant('{app}'), SW_HIDE, ewNoWait, ErrorCode);
end;