Собите после появления формы

[Alexandr17-10]

Скажите пожалуйста какое событие после появления формы происходит

[Kix.IV]

OnShow и OnActivate

[Человек_Борща]

---- //Kix.IV уже ответил

[Alexandr17-10]

Сообщение от Человек_Борща

---- //Kix.IV уже ответил

Нет оно до а мне после так что onActivate

procedure TMain_Application.FormActivate(Sender: TObject);
var VremStr:PAnsiChar;
  c:CHar;
  i:Integer;
begin
  StringList:=TStringList.Create;
  For c:= 'A' to 'Z' do
    if GetDriveType(PAnsiCHar(c + ':\'))=DRIVE_FIXED then
      StringList.Add(c+':\');
  GetMem(VremStr, MAX_PATH);
  i:=-1;
  Repeat
    i:=i+1;
  Until SearchTreeForFile(PAnsiCHar(StringList.Strings[i]), 'KaM_Remake.exe', VremStr);
  If Length(VremStr)>0 then
    MessageBox(Handle,PAnsiCHar(GetChangeLang('RUS-->',Name+'-->MessageBox-->lpText1')), PAnsiCHar(GetChangeLang('RUS-->',Name+'-->MessageBox-->lpCapt1',)),MB_Ok+MB_ICONASTERISK)
  else
    MessageBox(Handle,PAnsiCHar(GetChangeLang('RUS-->',Name+'-->MessageBox-->lpText2')), PAnsiCHar(GetChangeLang('RUS-->',Name+'-->MessageBox-->lpCapt2',)),MB_Ok+MB_ICONASTERISK);
  FreeMem(VremStr);
end;

[Человек_Борща]

Нет оно до а мне после так что onActivate

Тоже не вариант.
Будет вызываться всякий раз как форма получает фокус.

Кидайте таймер, заводите на 300-500 мс, в обработчике делайте что надо и там же выключаете таймер. Таким образом импровизация сработает сразу после показа формы, 1 раз.

[Alexandr17-10]

Сообщение от Человек_Борща

Тоже не вариант.
Будет вызываться всякий раз как форма получает фокус.

Кидайте таймер, заводите на 300-500 мс, в обработчике делайте что надо и там же выключаете таймер. Таким образом импровизация сработает сразу после показа формы, 1 раз.

тоже подумал также сделать

[Аватар]

А таймер зачем? Просто счетчик

[Alexandr17-10]

Сообщение от Аватар

А таймер зачем? Просто счетчик

А как его сделать и в какое событие

[Аватар]

Например определить в private формы и в OnCreate обнулить.
В OnAcivate в него +1 и сообщение (или че там) только, если значение счетчика равно 1

[Alexandr17-10]

procedure TMain_Application.Timer1Timer(Sender: TObject);
var VremStr:PAnsiChar;
  c:CHar;
  i:Integer;
begin
  ProgressBar1.Position := 0;
  StringList:=TStringList.Create;
  For c:= 'A' to 'Z' do
    if GetDriveType(PAnsiCHar(c + ':\'))=DRIVE_FIXED then
      StringList.Add(c+':\');
  GetMem(VremStr, MAX_PATH);
  i:=-1;
  Repeat
    i:=i+1;
  Until (SearchTreeForFile(PAnsiCHar(StringList.Strings[i]), 'km_tp.exe', VremStr)) or (i >=StringList.Count-1);
  If Length(VremStr)>0 then begin
    ProgressBar1.Position:=100;
    MessageBox(Handle,PAnsiCHar(GetChangeLang('RUS-->',Name+'-->MessageBox-->lpText1')), PAnsiCHar(GetChangeLang('RUS-->',Name+'-->MessageBox-->lpCapt1',)),MB_Ok+MB_ICONASTERISK)
  end else begin
    PostMessage(ProgressBar1.Handle, $0409, 0, clRed);
    ProgressBar1.Position:=50;
    MessageBox(Handle,PAnsiCHar(GetChangeLang('RUS-->',Name+'-->MessageBox-->lpText2')), PAnsiCHar(GetChangeLang('RUS-->',Name+'-->MessageBox-->lpCapt2',)),MB_Ok+MB_ICONASTERISK);
  end;
  FreeMem(VremStr);
  StringList.Free;
  Timer1.Enabled:=False;
end;

1 Надо в другом событие так как приводит к бесконечному выводу сообщений и зависание проэкта

2 Сам код нужно довести до ума но это другая тема так что сначало 1ое.