Рисование в Delphi, С помощью мыши |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Рисование в Delphi, С помощью мыши |
Shmaniche |
9.12.2012 17:44
Сообщение
#1
|
Пионер Группа: Пользователи Сообщений: 79 Пол: Мужской Репутация: 0 |
Надо нарисовать элипс. Самое простое что пришло в голову это поместить на форму PaintBox и написать:
Код var Form1: TForm1; MouseButtonDown: Boolean= false; StartX, StartY: Integer; implementation procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin MouseButtonDown:=true; StartX:=X; StartY:=Y; end; procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Form1.Caption:=Format ('Координаты: x=%d, y=%d ' , [X, Y]); // Координаты в заголовке. if MouseButtonDown=true then PaintBox1.Canvas.Ellipse(StartX, Starty, X, Y); end; procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin MouseButtonDown:=false; end; Но от элипса остается след, если нажатую мышку двигать назад. Как избавиться от этого следа? Сообщение отредактировано: Shmaniche - 9.12.2012 17:46 |
TarasBer |
10.12.2012 9:26
Сообщение
#2
|
Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
> if (MouseButtonDown=true) and (Rectangle=true)
Ааааа не пиши так больше!!!! Писать =true это как прибавлять ноль или умножать на 1. Бессмысленное действие. if MouseButtonDown and Rectangle и всё. Короче у тебя условия неправильно выписаны. if MouseButtonDown and Rectangle then begin // хорошо, нажата кнопка мыши и был выбран прямоугольник ... end else begin // иначе, то есть если кнопка мыши не нажата или не был выбран прямоугольник // то есть если был выбран круг и кнопка не нажата, то этот участок тоже выполняется ... end; -------------------- |
Текстовая версия | 20.05.2024 19:33 |