PageControl закрасить закладки

[Dozent]

Здраствуйте

в кратце обьясню

procedure TForm1.PCDrawTab(Control: TCustomTabControl; TabIndex: Integer;
  const Rect: TRect; Active: Boolean);
begin
with (Control as TPageControl).Canvas do
begin
if (ErrGL=1)and ( TabIndex = (Control as TPageControl).TabIndex) then
 begin
    Control.Canvas.Brush.Color := clRed;
    Control.Canvas.FillRect(Rect);
 end;
end;
  DrawButton(Control, TabIndex, Active);//отрисовка крестиков которые при нажатии на них закрывают вкладку
end;

обработка ошибки

except
   on E: Exception do
    begin
      //Form1.pc
      ErrGl:=1;
     //Application.MessageBox(PChar(E.Message), 'Îøèáêà ïîäêëþ÷åíèÿ', MB_ICONERROR);
     //Halt;
    end;
   end;

т.е. если ошибка присваеваем переменой значение

тут сразу же вопрос как сделать так чтобы прога вообше не выводила ни каких сообшений?

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

Прорисовка закладки и создание датамодуля для подключения...

 Tab:=TTabsheet.Create(PC);  //ñîçäàåì äèíàìè÷åñêè íîâóþ âêëàäêó
         with Tab do        //è íàñòðàèâàåì åå
           begin
            Visible := true;
            Caption := NameStr+'     '; //ìîæíî çàäàòü èìÿ âêëàäêè
            Pagecontrol := PC; //ïîìåñòèòü ñîçäàííóþ âêëàäêó â íóæíûé PageControl
            PC.SelectNextPage(True);
           end;
//*************
          DM[y+1] := TDynDM.CreateValues(Self, y+1);

а забыл ешё, подключение происходит в динамически создаваемом датамодуле...

[Dozent]

Товарищи загляните ктонить сюда плз!!!
Я чот даже не могу корректно перехватить ошибку!

[evg_m]

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

Tabsheet.Tag :=1; // для индикации ошибок на вкладке

Tag has no predefined meaning. The Tag property is provided for the convenience of developers. It can be used for storing an additional integer value or it can be typecast to any 32-bit value such as a component reference or a pointer.

тут сразу же вопрос как сделать так чтобы прога вообше не выводила ни каких сообшений?

посмотри тут