Einzelnen Beitrag anzeigen

TheConConBug

Registriert seit: 18. Aug 2004
22 Beiträge
 
Delphi 7 Enterprise
 
#1

TNotifyEvent - ExcessViolation bei Adresse 00000000

  Alt 5. Nov 2005, 12:33
HiHo,

ich hab aus irgendwelchen gründen bei einer eigens abgeleiteten eine Exception.
hab leider keine ahnung warum ..vorallem, weil es auch schonmal irgenwie geklappt hatte.. vieleicht kann mir jemand helfen..

die klasse ist von DBMemo abgeleitet und soll sich per mausklick verkleinern.
das läuft auch alles soweit ganz gut. aber als ich dann das Event (FBeforeMiniMize) hinzugefügt hatte, kam diese fehlermeldung:

Zitat:
>Im Projekt Project1.exe ist eine Exception der Klasse EAccessViolation aufgetreten.Meldung:
>'Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000'[..]

wenn ich die Event-Aufrufe (<FBeforeMiniMize(self)> und <FAfterMinimize(self)>) auskommentiere, dann klappt wieder alles.
hier ein programmausschnitt..

Delphi-Quellcode:
  TDBMemoXT = class(TDBMemo)
  private
   FReSizeOptions : TDBMReSizeOptions;
   FAfterMinimize : TNotifyEvent;
   FBeforeMinimize : TNotifyEvent;
   [..]
  protected
   [..]
  public
   procedure Minimize; dynamic;
   [..]
  published
   property AfterMinimize : TNotifyEvent read FAfterMinimize write FAfterMinimize;
   property BeforeMinimize : TNotifyEvent read FBeforeMinimize write FBeforeMinimize;
   property ReSizeOptions : TDBMReSizeOptions read FReSizeOptions write FReSizeOptions;
  end;

procedure Register;

implementation

procedure TDBMemoXT.Minimize;
  var Y,X :Integer;
 begin
  FBeforeMiniMize(self);
  X := FReSizeOptions.FReSizeCoords.FMinX;
  Y := FReSizeOptions.FReSizeCoords.FMinY;
  if not (Y < 0) then Height := Y;
  if not (X < 0) then Width := X;
  Color := FReSizeOptions.FMinMColor;
  Cursor := FReSizeOptions.FMinMCursor;
  FAfterMinimize(self);
 end;
..Ciao
..TheConConBug
...und aus dem Chaos sprach eine Stimme zu mir:
"Lächle und sei froh, es hätte schlimmer kommen können!"
...und ich lächelte und war froh - und es kam schlimmer!
  Mit Zitat antworten Zitat