Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Tabsheet
mimi - Do 03.10.02 19:12
Titel: Tabsheet
Hallo,
warum gibt es hier Fehelr:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.CloseSheet;
begin
with Form1 do
if PageControl1.PageCount <> 0 then begin
with PageControl1.Pages[PageControl1.ActivePageIndex] do begin
Liste.Delete(PageControl1.ActivePageIndex);
Destroy; // Fehler
end;
end;
end; |
MFG
mimi[/code]
Tino - Do 03.10.02 19:41
Benutze mal statt Destroy die Anweisung Free!
Außerdem ist das die falsche Sparte. Topic wird deshalb verschoben.
Gruß
TINO
mimi - Do 03.10.02 19:51
Titel: habe ich schon
das habe ich auch schon versucht !
es Führt immer zu einer zugrifverletztung und ich weiß nicht warum !!
auf denn Tabschit sind "TWebBrowser"(AktivX) liegt es daran???
MFG
mimi
Tino - Do 03.10.02 20:08
Was macht denn diese Anweisung?
Quelltext
1:
| Liste.Delete(PageControl1.ActivePageIndex); |
Gruß
Delete - Do 03.10.02 20:13
Diese Anweisung wird wohl den Index der jeweils aktuellen Seite aus einer Liste entfernen, wenn die Seite (TabSheet) entfernt werden soll.
Ich hab´s so gemacht:
Quelltext
1:
2:
3:
4:
5:
6:
| with Content do
if(PageCount > 1) then
begin
ActivePage.Controls[0].Free;
ActivePage.Free;
end; |
Das "Controls[0]" ist ein TSynEdit, das vor dem Freigeben der Seite selbst auch freigegeben wird. Was soll ich sagen -
Kein Fehler!
mimi - Do 03.10.02 20:19
habe ich jetzt auch gemacht = Es gibt immer noch Fehler !!!
was mache ich falsch liegt es an der TWebBroser komponenten ?
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| with Form1 do begin
if PageControl1.PageCount <> 0 then begin
Liste.Delete(PageControl1.ActivePageIndex);
with PageControl1.Pages[PageControl1.ActivePageIndex] do begin
Controls[0].Free;
Free;
end;
end;
end; |
MFG
mimi
Delete - Do 03.10.02 20:32
Das glaube ich nicht. Ich hab´s eben mal schnell ausprobiert, und bei mir ging es ohne Probleme. Kommentiere doch mal spaßeshalber die Zeile
Quelltext
1:
| Liste.Delete(PageControl1.ActivePageIndex); |
aus und probier´s noch einmal. Eine andere Ursache als einen evtl. Fehler hier kann ich nämlich nicht sehen.
Ach ja, und lass mal das
weg. Deine Prozedur (TForm1.CloseSheet) ist bereits Teil der Form, eine gesonderte Angabe ist deswegen nicht erforderlich.
mimi - Do 03.10.02 20:40
Titel: immer noch nicht !
Es geht immer noch nicht !!!
ICH HABE ALLES VERSUCHT
bin ratlos :?: :?:
MFG
mimi
mimi - Do 03.10.02 22:41
Titel: Fehler gefunden
Ich habe den Fehler gefunden! aber ich weiß nicht wie ich denn lösen kann der Fehler ist bei PageControl1Change dort führe ich wichtige sachen durch :
Quelltext
1:
2:
3:
4:
5:
6:
7:
| if isclose = False then begin
if PageControl1.ActivePageIndex <> -1 then begin
AW:=TWebBrowser(Liste[PageControl1.ActivePageIndex]);
if (isFertig = True) and (AW <> NIL) then
Edit1.Text:=AW.OleObject.Document.Url;
end;
end; |
das wird immer ausgeführ kann mir jemmand sagen warum ??? und warum funktioniert die Enter taste bei Formularen(buttons funktioniert,aber nicht bei ein memo(HTML,meine ic)) mFG mimi PS desahlt sieht der text aus so komisch aus !!!
mimi - Fr 04.10.02 00:25
Titel: geschaft !!
ich habe es geschaft > der Fehler ist weg
es lag an: ich hatte vergessen AW:=nil zu machen !
ich weiß zwar nicht warum AW auf nil muss aber nun geht es
in aw speicher ich denn Akiven Webbrauser !!
und enter geht nun auch endlich in eingabe Fehlder !!!!!
MFG
mimi
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!