Form deaktiviert sich selber

[DelphiMini]

Hallo,

ich habe malwieder ein Problem:
Ich programmiere für Jugend forscht ein Projekt(Conway's Spiel des Lebens)
und jedesmal wnn ich auf die Ausgabe (TImage) klicke,
deaktiviert sich die Form und der Befehl wird nicht ausgeführt.
Warum? Und wie behebt man das?

Vielen Dank im Voraus!
:coder:

[Uwe Raabe]

Zeigst du uns den Code oder sollen wir raten, was du programmiert hast?

[Bummi]

Hast Du eine Action am Form hängen und diese wird disabled, oder das Form direkt wird disabled, oder hängst Du in einer Endlosschleife.....

[DelphiMini]

Hier ist die Prozedur!

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
 begin
  MX := trunc(X / Kastchenbreite);
  MY := trunc(Y / Kastchenbreite);
  if Shift = [ssLeft] then
  begin
   neu[MX,MY] := not(neu[MX,MY]);
   PunktZeichnen;
   Rander;
  end;
 end;

 if EinfugenAn = true then
 begin
  MX := trunc(X / Kastchenbreite);
  MY := trunc(Y / Kastchenbreite);
  if Shift = [ssLeft] then
  begin
   for XX := 0 to FigurBreite2+1 do
   begin
    for YY := 0 to FigurHohe2+1 do
    begin
     neu[MX+XX,MY+YY] := FigurEinfugen[XX,YY];
    end;
   end;
   PunktZeichnen;
   Rander;
  end;
 end;

// EinfugenAn := false;
end;

[Bummi]

:glaskugel: Render :glaskugel:

[DelphiMini]

Rander!
(Eine andere Prozedure)

[Bummi]

Sorry für den Tippfehler, aber Du hast an der Glaskugel gesehen, daß der Code nicht ausreicht den Fehler zu finden, ich vermute Du läufst irgendwo in eine Endlosschleife.....da hatte ich Rander in der Raum geworfen als möglichen Problemkandidat.

[DelphiMini]

Danke,

ich schau mal nach!

[rollstuhlfahrer]

Zitat:

Zitat von DelphiMini (Beitrag 1071478)

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

Delphi-Quellcode:

if Variable then

oder

Delphi-Quellcode:

if not Variable then

. Außerdem gibt es

Delphi-Quellcode:

if [...] then [...] else

.

Weiterhin habe ich das Gefühl, dass du mal in den Projektoptionen die Bereichsprüfung aktivieren solltest:

Delphi-Quellcode:

for XX := 0 to FigurBreite2+1 do

das "+" hier ist mir sehr suspekt, auch wenn ich den Hintergrund nicht kenne.

Bernhard

[BUG]

OT:

Zitat:

Zitat von DelphiMini (Beitrag 1071495)

Rander!
(Eine andere Prozedure)

Das klingt irgendwie nicht intuitiv und irreführend wie ein Schreibfehler bei "render" ... vielleicht findest du noch einen besseren Namen.