Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Einzelne tabsheets auf PageControl schliessen


Luncustaf - Di 17.12.02 15:36
Titel: Einzelne tabsheets auf PageControl schliessen
hi,

hab hier ein PageControl nun will ich diese wenn der beenden button geklickt wurde einzeln schliessen. nun die frage wie schliesse ich diese eine nach der anderen bei der ersten angefangen bis zur letzten oder anders herum das ist egal :)


gr€€tz


smiegel - Di 17.12.02 15:49
Hallo,

etwa so:


Quelltext 
1:
2:
3:
4:
5:
6:
 
procedure TForm1.FormClose(Sender:TObject; var Action:TCloseAction);
var i:Integer;
begin
  with PageControl1 do for i:=0 to PageCount-1 do Pages[i].Free;
  Action:=caFree,
end;


Apropos: In Delphi ist eine umfangreiche Hilfe integriert. Wie ich schon einmal sagte, es würde nichts schaden, dort erst einmal nachzuschauen.


Luncustaf - Di 17.12.02 15:55
hi,

danke ersmal.

ich hab in der hilfe geschaut hab aber eher unter Close nachgesehen und nicht nach free sorry.


gr€€tz


LCS - Di 17.12.02 15:57
Hi
jemand der andere so oft auf die umfangreiche Hilfe hinweist, sollte eigentlich wissen, dass das so nicht funktioniert, sondern so rum:


Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
 
procedure TForm1.FormClose(Sender:TObject; var Action:TCloseAction); 
var i:Integer; 
begin 
  with PageControl1 do 
    for i:= PageCount-1 downto 0 do 
      Pages[i].Free; 
  Action:=caFree, 
end;


Gruss Lothar


smiegel - Di 17.12.02 16:10
Hallo,

@LCS
Das hat mit dem Hinweis auf die Hilfe nichts zu tun. Da ich meine Antwort immer on the fly hinschreibe, kann es durchaus vorkommen, das sich mal der eine oder andere Fehler einschleicht.

@Luncustaf
Alle mit Create erzeugten Objekt, werden normalerweise mit Free wieder zerstört. Ausnahmen von dieser Regel gibt es natürlich auch.


Luncustaf - Di 17.12.02 16:14
smiegel hat folgendes geschrieben:

@Luncustaf
Alle mit Create erzeugten Objekt, werden normalerweise mit Free wieder zerstört. Ausnahmen von dieser Regel gibt es natürlich auch.



und wieder was gelernt :) hmm wird immer besser hier thx für deine in letzten tagen große hilfe.

gr€€tz


LCS - Di 17.12.02 16:15
@smiegel
Du hast Recht. Es hat nichts mit der Hilfe sondern mit dem Tonfall in dem du hier antwortest du tun.

Gruss Lothar


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!