Access Violation i event

Skal lige siges at OnError og onAuth er nogle events jeg selv har lavet

har du assigned noget til dit onError event ?

Jens B

Jeg har en OnError på formen, der bruger komponentet;

procedure MainForm.PetError(Sender: TObject; Err: Integer);
begin
  ShowMessage(IntToStr(Err)); // Test-Checkprocedure for Errors
end;

Og den virker fint med de andre OnErrors jeg har

og du har skrevet

  OnError := OnError;

Jens B

øøøh hov

OnError := PetError;

Jens B

Initialization

Pet.OnError := MainForm.PetError;

Eventsne virker fint andre steder... den gør kun knuder lige her...

Frokostpause...
Er tilbage om en 45 min

problemet er at dit event ikke er assigned, tror jeg ...

Prøv

if Assigned(OnError) then
  OnError(Self, 200);
Exit;

Jens B

Gjort... Nu ligger fejlen hos

if Assigned(OnError) then

Har du en e-mail, så jeg kan sende mit projekt til dig?

jens@borrisholt.com

Sendt :)

Kan du løse problemet?

Det lyder som om du har destrueret MainForm eller at du ikke får fat i den rigtige onError. Prøv med

if Assigned(MainForm) and Assigned(MainForm.OnError) then
  OnError(MainForm.Self, 200);
Exit;

Så skal du selvf. også brug MainForm.On* inde i proceduren.

Det sker ofte hvis man har MainForm i AutoCreate form (Project->Options->Forms) og creater dem manuelt (MainForm := TMainForm.Create(??)). Hvis man gør det får man to instancer af MainForm, det medfører en masse udnøvendigt bøvl.

Skrev hele lortet om - smid et svar, så får du lidt skejser for dit arbejde.. :)

:-)