Beim Click eines Buttons OnMouseDown ausführen

[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..