Registriert seit: 21. Mai 2004
809 Beiträge
Delphi 7 Personal
|
Re: Rechteck zeichnen
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.
|