Beim Click eines Buttons OnMouseDown ausführen

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