Tworze dynamicznie zakładke w pagecontrol
var
NewTabSheet: TTabSheet;
begin
NewTabSheet := TTabSheet.Create(PageControl1);
NewTabSheet.Caption := 'aaa';
NewTabSheet.PageControl := PageControl1;
end;
Jak zrobić aby dynamicznie tworzona zakładka zamykała sie po dwókrotnym kliknieciu myszką na jej nazwe?
0
0
Musisz odmerzać czas między kliknięciami. Jeśli wystarczy Ci dokładność 1s to możesz zrobić na przykład tak:
var
LastClickTime: TTime;
LastClickActivePage: TTabSheet;
procedure TForm1.PageControl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (GetTime-LastClickTime<StrToTime('00:00:01')) and (PageControl1.ActivePage=LastClickActivePage) then
PageControl1.ActivePage.Destroy;
LastCLickTime:=GetTime;
LastClickActivePage:=PageControl1.ActivePage;
end;
0
Zrobiłem tak i nic :>