screen.activeForm

[wam]

Hi!

In der Schule arbeiten wir seit kurzen mit Delphi 7. Da ich Linux benutze, probiere ich gerade, eine Delphi-Unit so umzuschreiben, dass ich sie in Lazarus nutzen kann.
Unter anderem oben in der Uses-Klausel habe ich ein wenig geändert.

An der folgenden Stelle (Konstruktor einer Klasse) kommt immer eine Fehlermeldung „Project xyz raised exception class 'External: SIGSEGV'.“
Ich habe schon gegoogelt und die Sufu hier im Forum benutzt, aber noch keine Lösung gefunden.

Code: Alles auswählen

if screen.activeForm=nil then
   Halt;
kenntCanvas:=screen.activeForm.Canvas;
zLoeschFarbe:=screen.activeForm.Color;

Vielen Dank im Voraus für eure Hilfe!

[theo]

http://wiki.lazarus.freepascal.org/Laza ... i_Users/de" onclick="window.open(this.href);return false;
http://wiki.lazarus.freepascal.org/Code ... n_Guide/de" onclick="window.open(this.href);return false;