Thema: Delphi Rechteck zeichnen

Einzelnen Beitrag anzeigen

Benutzerbild von Pr0g
Pr0g

Registriert seit: 21. Mai 2004
809 Beiträge
 
Delphi 7 Personal
 
#4

Re: Rechteck zeichnen

  Alt 30. Nov 2004, 17:09
Dann nimm bspw. eine PaintBox im MouseDown speicherst du die Startkoordinaten in eine TRect Variable und im MouseMove änderst du die Endkoordinaten der selbigen, dabei zeichnest du jeweils das Rechteck auf die PaintBox. Zusätzlich brauchst du noch eine Boolean Variable, die du im MouseDOwn auf True und im MouseUp auf False setzt. Dann kannst du im MouseMove prüfen, ob die Taste überhaupt gedrückt wurde und die eben geschilderten Aktionen durchgeführt werden sollen.
  Mit Zitat antworten Zitat