Form deaktiviert sich selber

[rollstuhlfahrer]

Zitat von DelphiMini:

Delphi-Quellcode:

procedure THauptformular.FeldMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var MX, MY,XX,YY : integer;
begin
 if EinfugenAn = false then // Fehler 1
  // [...]
 if EinfugenAn = true then // Fehler 2
  // [...]
end;

Man vergleicht nicht auf = TRUE oder = FALSE. Entweder if Variable then oder if not Variable then . Außerdem gibt es if [...] then [...] else .

Weiterhin habe ich das Gefühl, dass du mal in den Projektoptionen die Bereichsprüfung aktivieren solltest: for XX := 0 to FigurBreite2+1 do das "+" hier ist mir sehr suspekt, auch wenn ich den Hintergrund nicht kenne.

Bernhard