Hallo zusammen,
in meinen kleinen Projekt bekomme ich immer eine Fehler Meldung, wo ich jetzt leider nicht mehr weiter weis.
Zitat:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt MailClient.exe ist eine
Exception der Klasse
EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 004BD163 in Modul 'MailClient.exe'.
Lesen von Adresse 00000000'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
Die Meldung kommt nur wenn ich auf einen Button drücke [Optionen oder AboutBox].
Delphi bleibt dann immer an dieser Stelle stehen.
AboutBox.ShowModal;
Da kann der Fehler aber nicht liegen. Hier mal der Quellcode von AboutBox.
Delphi-Quellcode:
unit info;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, jpeg;
type
TAboutBox =
class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
Comments: TLabel;
OKButton: TButton;
LabelLink: TLabel;
LabelName: TLabel;
procedure LabelLinkClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
AboutBox: TAboutBox;
implementation
uses MailClientTools;
{$R *.dfm}
procedure TAboutBox.LabelLinkClick(Sender: TObject);
begin
MailClientTools.LinkAnzeigen('
http://www.provider.de');
end;
procedure TAboutBox.FormShow(Sender: TObject);
begin
Copyright.Caption := '
Copyright ' + #169 + '
2006';
LabelName.Caption := Firma und
Name'
;
Version.Caption := 'V'
+ ProgramVersion;
end;
end.
Die
Unit habe ich in dem Projekt eingebunden, der Debugger zeigt immer nur AboutBox an.
Evt. hat jemand von euch ein Tip wo drann das liegen kann.