ДЕЛФИ PAGECONTROL1 КАК СДЕЛАТЬ КРЕСТИК НА ВКЛАДКАХ
Чтобы добавить крестик на закладки PageControl в Delphi, необходимо создать изображение крестика и добавить его к закладке по событию OnDrawTab. Вот пример кода:
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);var TabCaption: TSize; x, y: Integer;begin with Control.Canvas do begin Brush.Style := bsClear; Font.Assign(Self.Font); TabCaption := TextExtent(TabControl(Control).Tabs[TabIndex]); // Размещает крестик в правой части закладки x := Rect.Right - 10; y := (Rect.Bottom - Rect.Top - 8) div 2 + Rect.Top; TextOut(x - TabCaption.cx - 5, y, TabControl(Control).Tabs[TabIndex]); // Добавляет изображение крестика на закладку if TabIndex > 0 then begin ImageList1.Draw(Control.Canvas, x + 5, y - 5,0); TabControl(Control).Tabs.Objects[TabIndex] := TObject(True); end else begin TabControl(Control).Tabs.Objects[TabIndex] := TObject(False); end; end;end;procedure TForm1.PageControl1Change(Sender: TObject);begin if PageControl1.ActivePage.TabVisible then PageControl1.ActivePage.ImageIndex := 0 else PageControl1.ActivePage.ImageIndex := 1;end;
Надеюсь, это поможет!
Delphi Учимся делать вкладки
Программирование в Delphi Урок 8. Компоненты Главное меню и диалоговые окна
Как сделать нейросеть в Delphi
Программирование в Delphi. Урок 13.1. Отладка, поиск ошибок Debug
Уроки программирования в Lazarus. Урок №23. TabControl и PageControl - многовкладочные формы.
Уроки программирования в Lazarus. Урок №19. Компоненты StringGrid и DrawGrid.