Tag auch...
Habe ein riesiges Problem mit dem Pagecontrol. (Delphi 5 mit Update 1 und 2, Windoof 2000 mit allen Servicepacks)
(bei Windoof XP passiert das nicht)
Problem:
Habe ein PageControl erzeugt:
Delphi-Quellcode:
Page := TPageControl. Create (self);
Page. Align := alClient;
Page. TabStop := FALSE;
Page. MultiLine:= TRUE;
Page. Parent := self;
Nun werden mehrer Sheets darauf angelegt:
Delphi-Quellcode:
MySheet := TTabSheet. MyCreate (Page);
MySheet. Parent := Page;
MySheet. PageControl := Page;
MySheet. Align := alClient;
bei dieser Zeile bekomme ich folgenden Fehler:
MySheet. PageControl := Page;
Zitat:
Im Projekt ... ist eine
Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse ... in Modul 'comctl32.dll'. Lesen von Adresse ...'. usw.
Call stack:
:71756AA0 [comctl32.dll]
:71756B25 [comctl32.dll]
:71714867 [comctl32.dll]
:71714911 [comctl32.dll]
:7171364D [comctl32.dll]
:77E01EF0 [user32.dll]
:77E03D1E [user32.dll]
:77E03D9A [user32.dll]
:0043699B [....exe] Controls.TWinControl.DefaultHandler
:004364C3 [....exe] Controls.TWinControl.MainWndProc
:00448716 [....exe] Forms.StdWndProc
:77E01EF0 [user32.dll]
:77E03523 [user32.dll]
:77E06015 [user32.dll]
:0045CC4C [....exe] Comctrls.TCustomTabControl.GetDisplayRect
:004357F9 [....exe] Controls.TWinControl.AlignControl
:00435853 [....exe] Controls.TWinControl.Realign
:004364C3 [....exe] Controls.TWinControl.MainWndProc
:00448716 [....exe] Forms.StdWndProc
:77E01EF0 [user32.dll]
:77E03523 [user32.dll]
:77E06015 [user32.dll]
:0045D15A [....exe] Comctrls.TCustomTabControl.TabsChanged
:00412E1E [....exe] Classes.TStrings.InsertObject
:0045DFC1 [....exe] Comctrls.TPageControl.InsertTab
:0045D8B3 [....exe] Comctrls.TTabSheet.SetTabShowing
wenn ich das hier mache bekomme ich den Fehler nicht:
Page. MultiLine:= FALSE;
Ich brauche dringend Hilfe.