Beim Click eines Buttons OnMouseDown ausführen

[baumina]

Beim Paint wüsste ich keinen Button, der gleich eine Linie zeichnet, denn um eine Linie zu zeichnen wirst du sicherlich auf die Position des Mauszeigers verweisen, der sich bei einem Buttonklick höchstwahrscheinlich auf dem Button befindet. Deswegen befürchte ich dass da ein kleiner Denkfehler besteht.

[GroZ]

Zitat von baumina:

Beim Paint wüsste ich keinen Button, der gleich eine Linie zeichnet, denn um eine Linie zu zeichnen wirst du sicherlich auf die Position des Mauszeigers verweisen, der sich bei einem Buttonklick höchstwahrscheinlich auf dem Button befindet. Deswegen befürchte ich dass da ein kleiner Denkfehler besteht.

Nein ich meine das wenn ich den Button clicke > und dann auf die Zeichenfläche gehe das er dann weiß dass er eine Linie zeichnen muss. Mir gehts nur darum das er weiß wenn ich den button drücke er dann nicht mehr frei hand zeichnet sondern eine linie
Hoffe es ist einigermaßen verständlich

[TiGü]

Zitat von GroZ:

Mir gehts nur darum das er weiß wenn ich den button drücke er dann nicht mehr frei hand zeichnet sondern eine linie

Wer ist denn "er"?
Versuche dir nicht nur vorzustellen was du möchtest, sondern auch das wie!

Nehme mal einen Stift in die Hand und ein Blatt Papier.
Woher weißt du jetzt, dass du eine Linie mit dem Stift auf dem Papier malen kannst?
Steht in deinen Gehirn jetzt irgendwo die Information "Habe Stift ausgewählt/in der Hand", ja oder nein?

[baumina]

Du kannst dafür statt einem normalen Button z.B. einen Speedbutton verwenden. Ein Speedbutton kann als gedrückt (down) oder nicht gedrückt dargestellt werden. In dem MouseDown kannst du dann auf SpeedButton.Down abfragen.

[GroZ]

Zitat von baumina:

Du kannst dafür statt einem normalen Button z.B. einen Speedbutton verwenden. Ein Speedbutton kann als gedrückt (down) oder nicht gedrückt dargestellt werden. In dem MouseDown kannst du dann auf SpeedButton.Down abfragen.

Sehr gut danke

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

[Jumpy]

Besser erscheint es mir aber zusätzlich dazu einen Speedbutton zu verwenden einfach sich zu merken welches Zeichenwerkzeug (Freihand,Linie,Ellipse,Auswahlrechteck,...) gerade aktiv ist. Sprich beim drücken des Buttons das Werkzeug festlegen. Nicht, dass du immer in einer Schleife alle Werkzeugbuttons durchgehst um zu sehen, welcher gerade "down" ist.