Тренажёр мыши, нажатие левой и правой кнопки поочерёдно

@shade_ · Регистрация: 13.06.2014

Author24 — интернет-сервис помощи студентам

Вообщем проблема такая, мне нужно сделать тренажёр мыши. Я всё сделал вроде, но есть одна проблемка. Изначально на форме видно Image1 и Image2, по которым нужно нажимать левой и правой кнопкой мыши по очереди, пока не нажму по Image1(левой кнопкой мыши) Image2(нажать нужно правой кнопкой мыши) видна, но не доступна, после нажатия ЛКМ по Image1(исчезает), открывается доступ к Image2 и по ней нужно нажать ПКМ, всё бы ничего, но при нажатии любой клавиши мыши по Image2 опять появляется Image1, а на самом деле ничего происходить не должно пока не нажму ПКМ по Image2. Надеюсь понятно объяснил. Подскажите что не так в коде? Буду очень благодарен.

Delphi

procedure TForm6.Image1Click(Sender: TObject);
begin
if (Sender is TImage) then
    with (Sender as TImage) do
       begin
         image1.Left  := random(Form6.ClientWidth - Image1.Width);
         image1.Top := random(Form6.ClientHeight - Image1.Height);
         end;
    knopka:=knopka+1;
    Image1.Visible:=false;
    Image2.Enabled:=true;
end;
 
 
procedure TForm6.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if Button=mbRight then
 if (Sender is TImage) then
    with (Sender as TImage) do
       begin
         image2.Left  := random(Form6.ClientWidth - Image2.Width);
         image2.Top := random(Form6.ClientHeight - Image2.Height);
         end;
    knopka:=knopka+1;
    Image2.Enabled:=False;
    Image1.Visible:=True;
    end;
end.

Добавлено через 4 часа 27 минут
Я всё таки сам разобрался, тему можно закрывать.

@mss · 25.02.2015, 21:57

Сообщение от shade_

Image2 и по ней нужно нажать ПКМ

Ну нажал я ПКМ ...

Сообщение от shade_

при нажатии .. по Image2 опять появляется Image1

Ну появляется..

Сообщение от shade_

ничего происходить не должно пока не нажму ПКМ по Image2

Ну нажал я - и произшло "явление Image1"..
Не нажал бы - не произошло..
А я нажал - и оно произошло ..
А если б не нажал - оно не произошло..
А коли нажал, то и произошло ..

И в чем проблема ?)
Все как ты завещал)..

@shade_ · 26.02.2015, 11:55 **[ТС]**

mss, уже сам разобрался, ну просто "явление Image1" должно было происходить при нажатии только ПКМ, а оно происходило при нажатии любой клавиши мыши, ну да лан, уже всё работает так как нужно)

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	25.02.2015, 21:57	2
	Сообщение от shade_ Image2 и по ней нужно нажать ПКМ Ну нажал я ПКМ ... Сообщение от shade_ при нажатии .. по Image2 опять появляется Image1 Ну появляется.. Сообщение от shade_ ничего происходить не должно пока не нажму ПКМ по Image2 Ну нажал я - и произшло "явление Image1".. Не нажал бы - не произошло.. А я нажал - и оно произошло .. А если б не нажал - оно не произошло.. А коли нажал, то и произошло .. И в чем проблема ?) Все как ты завещал).. 1

@shade_ 1 / 1 / 0 Регистрация: 13.06.2014 Сообщений: 52
	26.02.2015, 11:55 [ТС]	3
	mss, уже сам разобрался, ну просто "явление Image1" должно было происходить при нажатии только ПКМ, а оно происходило при нажатии любой клавиши мыши, ну да лан, уже всё работает так как нужно) 0