Ошибка в создании вкладки для браузера в Delphi

[Жора1111]

Дорогие знатоки прошу помощи в двух вопросах, заранее спасибо. Первая проблема заключается в том, что при начале поиска выскакивает ошибка "Invalid class typecast" в 130 строчке процедуры TForm1.WebDocumentComplate, причем если запускать программу не с самого делфи, а с exe-шника, то дальше можно работать с самой программой без проблем. И второе, программа сама начинает искать запрос, без нажатия на кнопку "Enter", если я начинаю вводить слова, которые начинались на такую же букву как и предыдущие запросы. Я надеюсь понятно объяснил, помогите если сможете.

[Aliens_wolfs]

Первая проблема у вас здесь

procedure TForm1.WebDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  // Ошибка здесь у вас же нет , если за комментировать то все нормально
//((TWinControl(Sender as TWebBrowser).Parent) as TTabSheet).Caption :=  
//((TWebBrowser(Sender).document as IHTMLDocument2).title);
end;

Неправильно определена PageControl

вот кое что подправил

[Жора1111]

Спасибо огромное что откликнулись. Моя ошибка была в том что я не поместил TWebBrowser на TTabSheet и из-за этого возник конфликт. Но за то что ответили огромное спасибо. Можно ли у вас еще один-два вопроса уточнить?

[Aliens_wolfs]

Можно ли у вас еще один-два вопроса уточнить?

Можно

[Жора1111]

Я переделал некоторые моменты и перенес проект в делфи 10. Но проблему мою это так и не решило. А проблемы состоят в том что процедура TForm1.PageDrawTab (118) не рисует крестик в углу вкладки, хотя фактически она там есть и работает для ее закрытия. Вторая проблема, даже не проблема а непонятность. Если я в поисковик уже что-то вводил, то при последующем вводе слов, которые начинаться на такую же букву браузер сам начнет искать запрос, причем на старый запрос. Я надеюсь объяснил проблему. Заранее спасибо за ответ, конечно если он будет.

[Aliens_wolfs]

А проблемы состоят в том что процедура TForm1.PageDrawTab (118) не рисует

сразу включите в контроле Page.OwnerDraw=True
и прорисовать так

procedure TForm1.PageDrawTab(Control: TCustomTabControl; TabIndex: Integer;
  const Rect: TRect; Active: Boolean);
var
    AText: string;
    APoint: TPoint;
    r: Trect;
begin
  with (Control as TPageControl).Canvas do
  begin
    FillRect(Rect);
    Brush.Color:=clBtnFace;
    AText:= TPageControl(Control).Pages[TabIndex].Caption;
    with Control.Canvas do
    begin
      APoint.X:= (Rect.Right - Rect.Left) div 2 - TextWidth(Text) div 2;
      APoint.Y:= (Rect.Right - Rect.Left) div 2 - TextWidth(Text) div 2;
      TextRect(Rect, 2, 0, AText);
    end;
    Brush.Color:=clRed;
    r:= Types.Rect(Rect.Right - size - 4, Rect.Top + 2, Rect.Right - 2, Rect.Top + size + 4);
    Pen.Color:= clWhite;
    Rectangle(r);
  end
end;


procedure TForm1.FormPaint(Sender: TObject);
begin
if Page.PageCount > 0 then
Page.OnDrawTab(Page, Page.ActivePageIndex, Page.TabRect(Page.ActivePageIndex), true);
end;

Если я в поисковик уже что-то вводил, то при последующем вводе слов, которые начинаться на такую же букву браузер сам начнет искать запрос

Решается так:

Вообще уберите это событие procedure TForm1.SearchClick(Sender: TObject);

а в следующем событии сделайте так

procedure TForm1.SearchKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_Return) then
    begin
      Key:=0;
      if (Search.Text= '') then
        exit;
        Search.Items.Insert(0, Search.Text);
        if (Search.Text <> '') then
       Web.Navigate('https://www.google.ru/search?q='+Search.Text)
    end;
end;

[Жора1111]

Спасибо огромное, Вы очень помогли, только вот когда вывело кнопку название вкладки исчезает.

[Aliens_wolfs]

Выше в посте #6 смотрите в procedure TForm1.PageDrawTab
я же написал
TextRect(Rect, 2, 0, AText);
а у вас там
TextRect(Rect, Rect.Left + APoint.X, Rect.Top + APoint.Y, AText);
поэтому и невидно название

[Жора1111]

Я это видел и исправил, но это все равно не помогло. Вернее текст там есть но его сильно смещает за пределы рамки вкладки влево.

[Aliens_wolfs]

Поэкспериментируйте с этим значением TextRect(Rect, и подберите нужное, можно еще вместо TextRect
сделать так

R:= Rect;
DrawText(Handle, PAnsiChar(AText), Length(AText), R, DT_CENTER);

тогда текст выводиться по центру

Весь код будет примерно такой

procedure TForm1.PageDrawTab(Control: TCustomTabControl; TabIndex: Integer;
  const Rect: TRect; Active: Boolean);
var
    AText: string;
    r: Trect;
begin
  with (Control as TPageControl).Canvas do
  begin
    FillRect(Rect);
    Brush.Color:=clBtnFace;
    AText:= TPageControl(Control).Pages[TabIndex].Caption;
    with Control.Canvas do
    begin
    R:= Rect;
     DrawText(Handle, PAnsiChar(AText), Length(AText), R, DT_CENTER);
    end;
      Brush.Color:= clGradientActiveCaption;
      r:= Types.Rect(Rect.Right - size - 4, Rect.Top + 2, Rect.Right - 2, Rect.Top + size + 4);
      Rectangle(r);
      AText:= 'X';
      Font.Color:= clBlack;
      TextRect(R, r.Left + 2, r.Top - 1, AText);
  end
end;