Beim Click eines Buttons OnMouseDown ausführen

[Neutral General]

Das mit dem Speedbutton ist visuell keine schlechte Idee aber ich glaube dein Problem sind Variablen.
Beim Klick auf den Button musst du dir merken dass du ab jetzt im MouseDown Linien zeichnen willst.
Dafür kannst du dir z.B. im private Teil des Formulars eine Boolean Variable anlegen:

Delphi-Quellcode:

TForm1 = class(TForm)
  // Komponenten und so
private
  FLinieZeichnen: Boolean;
public

end;

procedure TForm1.ButtonLinieClick(Sender: TObject);
begin
  FLinieZeichnen := true;
end;

procedure TForm1.ButtonFreiHandClick(Sender: TObject);
begin
  FLinieZeichnen := false;
end;

procedure TForm1.FormMouseDown(...);
begin
  if (FLinieZeichnen) then
  begin
    // Linie
  end
  else
  begin
    // frei Hand
  end;
end;

Wenn noch mehr verschiedene Möglichkeiten dazukommen sollten, dann bietet sich ein Aufzählungstyp an:

Delphi-Quellcode:

type
  TPaintmode = (pmFreiHand, pmLinie, pmRechteck, pmKreis);

  TForm1 = class(TForm)
    // Komponenten und so
  private
    FModus: TPaintmode;
  public

  end;

procedure TForm1.ButtonLinieClick(Sender: TObject);
begin
  FModus:= pmLinie;
end;

procedure TForm1.ButtonFreiHandClick(Sender: TObject);
begin
  FModus := pmFreiHand;
end;

procedure TForm1.ButtonRechteckClick(Sender: TObject);
begin
  FModus := pmRechteck;
end;

procedure TForm1.FormMouseDown(...);
begin
  if (FModus = pmLinie) then // Eventuell ist ein case-of hier praktischer
  begin
    // Linie
  end
  else
  if (FModus = pmRechteck) then
  begin
    // Rechteck
  end
  else
  if (FModus = pmFreiHand) then
  begin
    // frei Hand
  end;
end;

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

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