Ähm, war das jetzt ein Ja oder ein Nein?
Edit: Hier mal der Code, mit dem ich ein komplettes Tabsheet verwerfe. PGC_Consoles ist übrigens die PageControl, die die einzelnen Tabsheets mit den Frames beinhaltet. Der Button mit diesem Event liegt aber eben nicht auf den Tabsheets, sondern separat ausserhalb der Pagecontrol.
Delphi-Quellcode:
procedure TFRM_Main.BTN_CloseConsoleClick(Sender: TObject);
var OldPageIndex:Integer;
begin
if PGC_Consoles.ActivePage=NIL
then
exit;
if MessageDlg('
Die Konsole wird geschlossen, sämtlicher dort eingegebene SQL-Code geht verloren. Fortfahren?',mtConfirmation,[mbOk,mbCancel],0)=mrOk
then
begin
OldPageIndex:=PGC_Consoles.ActivePageIndex;
PGC_Consoles.ActivePage.Free;
if OldPageIndex>0
then
PGC_Consoles.ActivePageIndex:=OldPageIndex-1;
end;
end;