[delphi] jak zamknac zakladki z tabcontrol

0

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

0

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

0

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

0

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.

user image

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  :-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1