External error: SIGSEGV

[Kratons]

Hallo allerseits,
ich habe momentan ein problem.
Untzwa habe ich 3 toogelbuttons, welche sollten sie betätigt (Mausklick) werden,
die beiden anderen deaktiviren sollten und eine Variable setzten.
eigentlich geht es heirbei um eine sprachauswahl.

Code:

procedure Tfmoptions.tbtnDEClick(Sender: TObject);
begin
    gSprache:='De';
    tbtnDE.Checked:=True;
    tbtnEN.Checked:=False;
    tbtnFR.Checked:=False;
end;

procedure Tfmoptions.tbtnENClick(Sender: TObject);
begin
    gSprache:='En';
    tbtnEN.Checked:=True;
    tbtnDE.Checked:=False;
    tbtnFR.Checked:=False;
end;

procedure Tfmoptions.tbtnFRClick(Sender: TObject);
begin
    gSprache:='Fr';
    tbtnFR.Checked:=True;
    tbtnDE.Checked:=False;
    tbtnEN.Checked:=False;
end;

das kompillieren an sich funktionirt soweit, und auch die anderen funktionen funktuioniren soweit Prima.
der fehler tritt aus sobalt ich im Debugger ( das war der doch wenn ich F9 drück oder) auf einen der köpfe klicke.
schwups macht es die Fehlermeldung:

"Project VN-System hat Exeption-Klasse: >>SIGSEGV<< ausgelöst.
Bei Adresse: 773c8EF1"

und er beendet das programm.
hab auch schon probiert die .exe einfahc ohne lazarus zu starten --> Error202

Bitte um Hilfe,
und schonmal danke an alle Helfer.

[sx2008]

Hast du auch ein Objekt der Klasse Tfmoptions angelegt?

Delphi-Quellcode:

procedure Tfmoptions.tbtnDEClick(Sender: TObject);
begin
   Assert(Assigned(self), 'Objekt der Klasse Tfmoptions ist nil!');  // zur Sicherheit
    gSprache:='De';
    tbtnDE.Checked:=True;
    tbtnEN.Checked:=False;
    tbtnFR.Checked:=False;
end;

[FragenderHerbert]

Ich hatte das Problem auch kürzlich. Hatte eine eigene Mauserkennung programmieren wollen. Mit der Unit Mouse geht da gar nix, da kam die SIGSEGV. Im Konsolenmodus. Mit MsMouse gejt überhaupt nicht unter Windows, die ist überhaupt nur für go32 verfügbar, ist zumindest bei den Sourcen im Ordner /Packages/go32 nicht aber im Win Ordner, während die Unit Mouse auch im Win Ordner zu finden ist. Nun habe ich die Unit Winmouse eingebunden, da kommt keine Exception mehr, wobei allerdings keine Mausklicks erkannt werden und MouseMove muss ich mühsam selber erkennen, wofür ich aber noch keine Lösung habe. Will möglichst plattformneutral bleiben.

Welche Mausunit verwendert denn eingentlich die LCL als Grundlage?

[JamesTKirk]

Zitat von FragenderHerbert:

Welche Mausunit verwendert denn eingentlich die LCL als Grundlage?

Gar keine, da die LCL direkt mit dem darunterliegendem Widgetset (Win API, GTK, Qt, etc.) kommuniziert und die Mouse Units eh nur für die Kommandozeile (egal of Crt oder Graph) gedacht sind.

Gruß,
Sven

[Kratons]

Hi alle zusammen, ich hab den fehler inzwischen beheben können, weiß allerdings nicht was ihn ursprünglich ausgelöst hatte.....

trotzdem voelen dank für die hilfen.