Программно переключить закладки TabControl

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

Всем привет!

Ситуация:
Есть TabControl с 4 вкладками(TabSheet).
На одном из TabSheet(ну к примеру на 2-ом) если 2 обязательных поля ввода для заполнения.
Одна кнопка.
По нажатию кнопки происходить проверка на заполненность обязательных полей.

Если одно или все поля ввода пусты выводится сообщение. Но если юзер находится на на другой вкладке(т.е. не на той гдде отображены обязательные поля ввода) то, необходимо програмным способом переключить на нужный TabSheet и установить фокус в незаполненное поле.

Проблема:
Как это сделать?

П.С.
фокус ставится функцией Tcontrol.SetFocus?

[_Engine_]

procedure TForm1.Button1Click(Sender: TObject);
begin
  TabControl1.TabIndex := TabControl1.TabIndex + 1;
end;

П.С.SetFocus - подойдет.

[ArtGrek]

думаю имелос ввиду так:

procedure TForm1.Button1Click(Sender: TObject);
var 
   a: byte;// индекс тои вкладки которая не прошла проверку
begin
  TabControl1.TabIndex := a;
end

;

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

неа неработает ...

    case HLR_MsgBox(RsMsgFullExePathNotExists, MB_OK or MB_ICONWARNING) of
      MB_OK:
        begin
        if (AppExePathEdit.Text = '') and (NameInAppsListEdit.Text = '') then
        begin
        Pages.TabIndex:=0;
        end;

        if (AppExePathEdit.Text = '') then
        begin
        Pages.TabIndex:=0;
        AppExePathEdit.SetFocus;
        end;

        if (NameInAppsListEdit.Text = '') then
        begin
        Pages.TabIndex:=0;
        NameInAppsListEdit.SetFocus;
        end;
          Exit;
        end;
    end;

[ArtGrek]

а куда ето вписано, может событие не происходит, можно вес код?

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

да, собственно так:

procedure TAddAppForm.AppyBtnClick(Sender: TObject);
begin
  if (AppExePathEdit.Text = '') or (NameInAppsListEdit.Text = '') then
  begin
    case HLR_MsgBox(RsMsgFullExePathNotExists, MB_OK or MB_ICONWARNING) of
      MB_OK:
        begin
        if (AppExePathEdit.Text = '') and (NameInAppsListEdit.Text = '') then
        begin
        AppAddPages.TabIndex:=0;
        end;

        if (AppExePathEdit.Text = '') then
        begin
 AppAddPages.TabIndex:=0;
        end;

        if (NameInAppsListEdit.Text = '') then
        begin
        AppAddPages.TabIndex:=0;
        end;
          Exit;
        end;
    end;

  end
  else
  begin
    AddAppForm.ModalResult := mrOk;
  end;
end;

[ArtGrek]

скинь где объявляеш вот ето

case HLR_MsgBox(RsMsgFullExePathNotExists, MB_OK or MB_ICONWARNING) of

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

function HLR_MsgBox(MsgText: string; MsgBoxType: Cardinal): Integer;
begin
  Result := MessageBox(0, PAnsiChar(MsgText), PAnsiChar(RsMsgBoxCaption), MsgBoxType);
end;

Процедура "моего" messageBox заголовок уже задан, остаётся задавать только
текст сообщения, кнопку и иконку диалога. не в этом суть!

сообщение происходит, идет обработка нажатия кнопки ок, трассировкой смотрел, пробегает по всему что надо. Но пользователя так и не посылает на нужную вкладку.

[ArtGrek]

у меня все нормално перекидываеца

procedure TForm1.Button1Click(Sender: TObject);
begin
   if (Edit1.Text='') or (Edit2.Text='') then
  begin
    if Edit1.Text='' then TabControl1.TabIndex:=1
    else TabControl1.TabIndex:=2

  end;
end;

[ArtGrek]

я не профи, но мне кажеца что тебе не нужен case
а вообше что в етои функцие происходит?
скинул бы ты всю прогу