Зарисовка шариков

[HeLLiSH]

Привет всем)
Возникла одна проблемка, я создал процедуру которая при нажатии на движущий шарик выводит ShowMessage. Помогите сделать что бы оно зарисовывало этот шарик на который было нажато.
Заранее спасибо

[Serge_Bliznykov]

так, просто шутки ради:

procedure TForm1.ShpMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var i : integer;
begin
  if Sender is TShape then
  for I:=1 to Max do
     if Sender = SharArray[i].S then begin
        {ShowMessage('шар № '+ IntToStr(i) ); }
        SharArray[i].S.Brush.Color:= clRed
     end
     else
       if SharArray[i].S.Brush.Color= clRed then
            SharArray[i].S.Brush.Color := clWhite;
end;

[HeLLiSH]

Ещё 1 маленький вопрос, как сделать что бы при втором нажатии на тот шарик, он становился черным и происходило нажатие клавиши добавить?)

[Serge_Bliznykov]

я не понял?
Код то работает? если да - то почему я "Спасибо" не вижу?!
или Вас не учили благодарить за помощь?!
Если не работает - то тогда в чём именно затык?!

Ещё 1 маленький вопрос, как сделать что бы при втором нажатии на тот шарик, он становился черным и происходило нажатие клавиши добавить?)

это не сложно:

procedure TForm1.ShpMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var i : integer;
begin
  if Sender is TShape then
  for I:=1 to Max do
     if Sender = SharArray[i].S then begin
        {ShowMessage('шар № '+ IntToStr(i) ); }
        if SharArray[i].S.Brush.Color = clRed then begin
          // а вот и повторное нажатие словили
          SharArray[i].S.Brush.Color:= clBlack;

          // нажатие на кнопку "Добавить"
          Button2Click(Button2);
        end
        else
          SharArray[i].S.Brush.Color:= clRed
     end
     else
       if SharArray[i].S.Brush.Color= clRed then
            SharArray[i].S.Brush.Color := clWhite;
end;

а вообще, рекомендую не просто так брать готовый код с форума и вставлять в программу, а попытаться разобраться - что там написано и что происходит.
Тогда Вы сможете легко дорабатывать код под свои нужды...

[HeLLiSH]

Огромное спасибо)) Очень признательный )))

[Serge_Bliznykov]

пожалуйста!

код то работает?
Вы в нём разобрались?

[HeLLiSH]

Да все работает, я его немного ещё изменил, так что вообще все супер
Ещё раз спс