MouseDown

[Иваннннн1]

Здравствуйте, я столкнулся с такой проблемой. у меня в задании нужно создать 4 круга путём нажатия на форму. это я сделал с помощью MouseDown. а дальше при нажатии на любой круг, он должен поменять цвет. подскажите, плизззз, как это сделать. заранее спасибо

[min@y™]

у меня в задании нужно

Как звучит оригинал задания?

[Иваннннн1]

задание. создайте по первым 4-ом шелчкам мыши 4 круга на форме, далее вразбрас расскрасте их путём нажатия на них. не использовать PaintBox

[Streletz]

Сообщение от Иваннннн1

это я сделал с помощью MouseDown. а дальше при нажатии на любой круг, он должен поменять цвет. подскажите, плизззз, как это сделать. заранее спасибо

Хоть бы выложили, что сделали и что попытались сделать в рамках решения проблемы. Тогда можно было что-то определённое подсказать.

[Иваннннн1]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

begin
  i:=1;
  m[i]:=Tshape.create(form1);
  m[i].top:=y-50;
  m[i].left:=x-50;
  m[i].width:=50;
  m[i].height:=50;
  i:=i+1;
  form1.canvas.ellipse(x,y,x-50,y+50);
end;

круги я создал. я не могу понять, как мне запомнить их координаты

[Utkin]

Очевидно информация о координатах и о количестве нажатий должны храниться где-то в отдельном поле класса формы либо вообще быть глобальными (чего я бы не советовал). А данный обработчик должен менять свое поведение с учетом числа нажатий на мышку и получать координаты извне.

[min@y™]

задание. создайте по первым 4-ом шелчкам мыши 4 круга на форме, далее вразбрас расскрасте их путём нажатия на них. не использовать PaintBox

Это типа так штоли?



Скачать и поиграться.

З.Ы. Админы, мне опять пришлось закачивать файл на rghost из-за нелепых ограничений на размер файлов и их формат. Ну сделайте размер хотя бы в 1, а лучше 2 Мб и добавьте 7-zip уже, ёмаё!

[Иваннннн1]

да, похоже

[min@y™]

Ну тады ладно.