[delphi] jak zamknac zakladki z tabcontrol

Mam zakladki ab control jak wstawic tam ikonke X zeby mozna bylo kazda zakladke zmknac?

Może to chociaż troche pomoże w rozwiązaniu, aczkolwiek to zamyka przy każdym kliknięciu zakładkę, która aktualnie znajduje się na końcu.Należy odwołać się do zdarzenia OnMouseDown
na razie nie mam innego pomysłu :-/

procedure TForm1.TabControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 begin
  TabControl1.Tabs.Delete(1);
 end;

Jeśli chodzi o ikonkę na TabControl'u to w komponencie ImageList umieścić interesujące ikony, a potem w TabControl'u w Object Inspectorze odwołac się w Images do ImageList1

Faktycznie dziala z list image ale pojawia sie po lewej stronie a jak ustawic obrazek po prawej i zeby po nacisnieci na ten obrazek wywolac zdarzenie zeby sie zamknela dana zakladka to znaczy chce ustawic ja jako hide ale jak to zrobic zeby po nacisnieciu tej ikonki

Może prościej będzie jak użyjesz komponentu ControlPage
IMHO ma o wiele większe możliwości! ;]

Poniżej zamieszczam rozwiązanie problemu na PageContrul'u. Zamykanie zakładki działa po przyciśnięciu prawego przycisku myszy. Zamknięta jest zakładka aktualnie aktywna.

Wystarczy pod wydarzenie PageControl1ContextPopup podpiąć poniższy kod:

procedure TForm1.PageControl1ContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
begin
 Form1.PageControl1.ActivePage.TabVisible:=False;
end;

Poza tym ListImage, tak jak poprzednio wspominałem...niestety na dziś dzień nie wiem jak zrobić to akurat na Image umieszczonym na zakłdace. Mam nadzieję, że to pomoże.

Pozdrawiam  :-)