Zugriffsverletzung, ich komm nicht drauf

[guidobrose]

Noch einmal ich, aber ich komm jetzt nicht mehr weiter... Der Quellcode ist etwas umfangreicher, aber ich habs mal (fast) komplett hinkopiert.

Grundsätzlich gibt es ein Datenmodul "DM", in dem die Imagliste für die Toolbuttons (unter anderem) liegt. Zusätzlich werden die einzelnen "Seiten", die im Programm aufgerufen werden können (momentan nur "Uebersicht" und "Einstellungen" auf einem Nachkommen von TPanel in eine eigene Unit ausgelagert. Die meisten Komponenten werden zur Lz auf dem Panel angeordnet (muss ich so machen, weil ich in der Explorerversion die visuellen Komponenten nicht erweitern kann und ein paar Schmankerl eingebaut habe). Zudem hoffe ich den Quelltext etwas übersichtlicher zu bekommen, wenn jede Seite ihre eigene Unit hat. Es funktioniert auch ganz gut und mit etwas Hilfe aus dem Forum, habe ich auch meinen untergeordneten Toolbar auf dem Panel untergebracht. Die Imageliste wird dem Toolbar aus dem Datenmodul zugeordnet (auch auf dem Hauptformular) und hier hakt es auch, denn sobald ich die Liste dem Toolbar zuweise (TEinstellungen.Enter), habe ich zwar einen Glyph auf dem Button, aber beim Beenden des Programmes bekomme ich eine Zugriffsverletzung. Kommentiere ich diese Zeile aus, dann läuft es wieder. Komischerweise scheint die Zuweisung der Imageliste an den Toolbar des Hauptformulars kein Problem zu verursachen. Die Zuweisung in "OnShow", bzw. "Enter" ist übrigens, weil das Datenmodul in der Create-Routine noch nicht erzeugt ist.

Kann mir jemand mal unterstützend unter die Arme greifen??

Gruß.

Delphi-Quellcode:

unit ULlesy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, StdCtrls, ExtCtrls, XTCtrls, ImgList, UDM, UUebersicht, UEinstellungen;

type
  TLlesy = class(TForm)
    TlBr: TToolBar;
    LblInformation: TLabel;
    PnlStatus: TPanel;
    ImgStatusConnection: TImage;
    ImgStatusBenutzer: TImage;
    TlBtnUebersicht: TToolButton;
    TlBtnArchiv: TToolButton;
    TlBtnDatenbank: TToolButton;
    TlBtnEinstellungen: TToolButton;
    ToolButton5: TToolButton;
    TlBtnSeparator1: TToolButton;
    TlBtnInformation: TToolButton;
    TlBtnBeenden: TToolButton;
    TlBtnVollbild: TToolButton;
    procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer;
      var Resize: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TlBtnBeendenClick(Sender: TObject);
    procedure TlBtnInformationClick(Sender: TObject);
    procedure TlBtnEinstellungenClick(Sender: TObject);
    procedure TlBtnUebersichtClick(Sender: TObject);
    procedure TlBtnVollbildClick(Sender: TObject);
  private
    { Private-Deklarationen }
    Uebersicht: TUebersicht;
    Einstellungen: TEinstellungen;
    procedure SetPanel(VP: TVisiblePanel);
  public
    { Public-Deklarationen }
  end;

var
  Llesy: TLlesy;

implementation

uses UInfo;
{$R *.dfm}

procedure TLlesy.FormCreate(Sender: TObject);
begin
//Allgemeine Vorbesetzungen
Color:=clXTBackground;
//Weitere Fenster erzeugen
Uebersicht:=TUebersicht.Create(self,Llesy);
Einstellungen:=TEinstellungen.Create(self,Llesy);
end;

procedure TLlesy.FormShow(Sender: TObject);
begin
//Allgemeine Vorbesetzungen
TlBr.Images:=DM.ImgLst30x30;
//Wird beim Start auf TRUE gesetzt und im Infodialog wieder gelöscht.
DM.FirstStart:=True;
//Infodialog aufrufen
Information.Position:=poScreenCenter;
Information.ShowModal;
end;

procedure TLlesy.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
//Minimale Größe auf 800x600 begrenzen
  if (NewWidth<800) or (NewHeight<600) then
    Resize:=False;
end;

procedure TLlesy.TlBtnBeendenClick(Sender: TObject);
begin
Close;
end;

procedure TLlesy.TlBtnInformationClick(Sender: TObject);
begin
Information.Position:=poMainFormCenter;
Information.ShowModal;
end;

procedure TLlesy.SetPanel(VP: TVisiblePanel);
begin
  Uebersicht.Visible:=VP=vpUebersicht;
  Einstellungen.Visible:=VP=vpEinstellungen;
  case VP of
    vpUebersicht: LblInformation.Caption:='Übersicht: Fahrzeuge an- und abmelden';
    vpArchiv: ;
    vpDatenbank: ;
    vpEinstellungen:
      begin
        LblInformation.Caption:='Programm: Einstellungen bearbeiten';
        Einstellungen.SetFocus;
      end;
    vpSQLService: ;
  end;
end;

procedure TLlesy.TlBtnUebersichtClick(Sender: TObject);
begin
SetPanel(vpUebersicht);
end;

procedure TLlesy.TlBtnEinstellungenClick(Sender: TObject);
begin
SetPanel(vpEinstellungen);
end;

procedure TLlesy.TlBtnVollbildClick(Sender: TObject);
begin
  if not (Align=alClient) then
  begin
    DM.Anzeige.Top:=Top;
    DM.Anzeige.Left:=Left;
    DM.Anzeige.Width:=Width;
    DM.Anzeige.Height:=Height;
    Align:=alClient;
  end
  else
  begin
    Align:=alNone; 
    Top:=DM.Anzeige.Top;
    Left:=DM.Anzeige.Left;
    Width:=DM.Anzeige.Width;
    Height:=DM.Anzeige.Height;
  end;
end;

end.

Delphi-Quellcode:

unit UEinstellungen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, StdCtrls, ExtCtrls, XTCtrls, ImgList, UDM;

type
  TEinstellungen = class(TPanel)
  private
    { Private-Deklarationen }
    TlBr: TToolBar;
    TlBtnSichern: TToolButton;

    Information: TXTPanel;
    InfBenutzer: TXTEdit;
    InfComputer: TXTEdit;

    Datenbank: TXTPanel;
    DtbTreiber: TXTEdit;
    DtbServer: TXTEdit;
    DtbName: TXTEdit;

    Peripherie: TXTPanel;
    PerAmpelIP: TXTEdit;
    PerAmpelPort: TXTEdit;
    PerAnzeigeIP: TXTEdit;
    PerAnzeigePort: TXTEdit;
    procedure Enter(Sender: TObject);
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent; AParent: TWinControl);
  end;

implementation

constructor TEinstellungen.Create(AOwner: TComponent; AParent: TWinControl);
begin
  inherited Create(AOwner);
//Allgemeine Parameter vorbesetzen
  Parent:=AParent;
  BevelInner:=bvNone;
  BevelKind:=bkFlat;
  BevelOuter:=bvNone;
  ParentColor:=True;
  Top:=50; //Beliebiger Wert, der unterhalb vom Toolbar liegt
  Align:=alClient;
  AlignWithMargins:=True;
  Visible:=False;
  OnEnter:=Enter;
//Untergeordnete Elemente erzeugen
  TlBr:=TToolBar.Create(self);
  TlBr.Parent:=self;
  TlBr.DrawingStyle:=ComCtrls.dsGradient;
  TlBr.Height:=31;
  TlBr.ButtonHeight:=30;
  TlBr.ButtonWidth:=30;
  TlBtnSichern:=TToolButton.Create(self);
  TlBtnSichern.Parent:=TlBr;
  TlBtnSichern.ImageIndex:=6;

  Information:=TXTPanel.Create(self,self);
  Information.Caption:='Information';
  Information.Top:=35;
  Information.Height:=80;
  Information.Width:=260;
  Information.Enabled:=False;//Nur Information, keine Eingaben möglich
  InfBenutzer:=TXTEdit.Create(self,Information,30);
  InfBenutzer.Caption:='Benutzer';
  InfComputer:=TXTEdit.Create(self,Information,55);
  InfComputer.Caption:='Computer';

  Datenbank:=TXTPanel.Create(self,self);
  Datenbank.Caption:='Datenbank';
  Datenbank.Top:=125;
  Datenbank.Height:=105;
  Datenbank.Width:=260;
  DtbTreiber:=TXTEdit.Create(self,Datenbank,30);
  DtbTreiber.Caption:='Treiber';
  DtbServer:=TXTEdit.Create(self,Datenbank,55);
  DtbServer.Caption:='Server';
  DtbName:=TXTEdit.Create(self,Datenbank,80);
  DtbName.Caption:='Name';

  Peripherie:=TXTPanel.Create(self,self);
  Peripherie.Caption:='Peripherie';
  Peripherie.Top:=240;
  Peripherie.Height:=130;
  Peripherie.Width:=260;
  PerAmpelIP:=TXTEdit.Create(self,Peripherie,30);
  PerAmpelIP.Caption:='Ampel - IP';
  PerAmpelPort:=TXTEdit.Create(self,Peripherie,55);
  PerAmpelPort.Caption:='Ampel - Port';
  PerAnzeigeIP:=TXTEdit.Create(self,Peripherie,80);
  PerAnzeigeIP.Caption:='Anzeigetafel - IP';
  PerAnzeigePort:=TXTEdit.Create(self,Peripherie,105);
  PerAnzeigePort.Caption:='Anzeigetafel - Port';
end;

procedure TEinstellungen.Enter(Sender: TObject);
begin
  TlBr.Images:=DM.ImgLst24x24;
  InfBenutzer.Text:=DM.Benutzer;
  InfComputer.Text:=DM.Computer;
  DtbTreiber.Text:=DM.Datenbank.Treiber;
  DtbServer.Text:=DM.Datenbank.Server;
  DtbName.Text:=DM.Datenbank.Name;
end;

end.