Hallo zusammen,
folgender Code:
Delphi-Quellcode:
procedure TForm1.GehevorChange(Sender: TObject);
begin
if Gehevor.Checked = false then
begin
Gehevor.Checked:= true;
exit;
end;
Gehezurueck.Checked:= false;
end;
procedure TForm1.GehezurueckChange(Sender: TObject);
begin
if Gehezurueck.Checked = false then
begin
Gehezurueck.Checked:= true;
exit;
end;
Gehevor.Checked:= false;
end;
Ich habe zwei ToggleBoxes welche jeweils abwechselnd Checked bzw. nicht Checked sein sollen. Damit nicht der Fall Auftritt, dass beide Checked oder nicht Checked sind, gibt es die if abfragen welche eine solche Kombination verhüten sollen. Ich hatte die Prozeduren ursprünglich im Change- Event, allerdings nicht beachtet, dass OnChange auch bei Veränderungen durch das Programm ausgelöst wird, sodass es mir gelungen ist, eine "doppelt gewundene Endlosschleife" zu programmieren
, welche irgendwann (nach ca. 1/2 sekunde) in einem Zugriffsfehler endet (Warum?). Jetzt wollte ich die Methoden über den Objektinspektor neu zuweisen, sodass jetzt das Klick- Ereignis diese auslöst. Allerdings besteht nach wie vor der Fehler. Kann es sein, dass Lazarus die alten Verbindungen irgendwie nicht gelöscht hat, obwohl ich sie im Objektinspektor entfernt habe?