Beim Click eines Buttons OnMouseDown ausführen

[TiGü]

Zitat von Neutral General:

Versuch das mal. Und die Sache mit der Button-Schleife bedeutet, dass du noch grundlegende Verständnisprobleme hast was das Programmieren angeht.
Das ist nicht böse gemeint - habe das gesagt, damit dir bewusst ist/wird dass du da noch (z.T.) falsch denkst und du vllt. schauen kannst dass du diese Denkweise möglichst schnell aus deinem Kopf kriegst

Nun zeige ihn doch auch gleich case-of, sonst haben wir in zwei Tagen eine Frage mit ewig langen if-then-else-Konstrukten.

[Neutral General]

Zitat von TiGü:

Zitat von Neutral General:

Versuch das mal. Und die Sache mit der Button-Schleife bedeutet, dass du noch grundlegende Verständnisprobleme hast was das Programmieren angeht.
Das ist nicht böse gemeint - habe das gesagt, damit dir bewusst ist/wird dass du da noch (z.T.) falsch denkst und du vllt. schauen kannst dass du diese Denkweise möglichst schnell aus deinem Kopf kriegst

Nun zeige ihn doch auch gleich case-of, sonst haben wir in zwei Tagen eine Frage mit ewig langen if-then-else-Konstrukten.

Okay

Die in diesem Fall übersichtlichere case-of Variante sähe so aus:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(...);
begin
  case (FModus) of
    pmFreiHand: 
    begin
      // Frei Hand
    end;
   
    pmLinie:
    begin
      // Linie
    end;

    pmRechteck:
    begin
      // Rechteck
    end;

    else
    begin
      // Ungültiger Modus!
    end;
  end;
end;

PS: Ich konnte in all den Jahren keine Art finden ein case-of so einzurücken dass ich 100%ig damit zufrieden bin..

[nuclearping]

Zitat von Neutral General:

PS: Ich konnte in all den Jahren keine Art finden ein case-of so einzurücken dass ich 100%ig damit zufrieden bin..

Ich handhabe das so:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(...);
begin
  case (FModus) of
    pmFreiHand: 
      begin
        // Frei Hand
      end;
   
    pmLinie:
      begin
        // Linie
      end;

    pmRechteck:
      begin
        // Rechteck
      end;

    else
      begin
        // Ungültiger Modus!
      end;
  end;
end;

... Sieht mir am meisten nach "Baum" aus.

[Neutral General]

Ich weiß nicht. Das eingerückte begin-end; sieht seltsam aus. Das sieht für mich genauso seltsam aus wie sowas:

Delphi-Quellcode:

procedure Test;
  begin
    
  end;

Aber direkt unter dem Wert (so wie bei mir) sieht das ganze so nach Klotz aus.