Один обработчик для нескольких Image

@Orakul · Регистрация: 07.07.2012

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

Ребят подскажите плиз как работать с обработчиками компонентов а то ни где инфы нет "русскоязычной". Вопрос имеется несколько компонентов image, при нажатии мышкой на image он "действует" как button т.е "присел" & "поднялся". Писать для каждого из них обработчик мне не трудно , но хотелось бы понять как это работает : один обработчик для нескольких обинаковых объектов.

C++

void __fastcall TForm1::ImageoffMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
    Imageoff->Left = Imageoff->Left + 2;
    Imageoff->Top = Imageoff->Top + 2 ;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ImageoffMouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
    Imageoff->Left = Imageoff->Left - 2;
    Imageoff->Top = Imageoff->Top - 2 ;
}
//
---------------------------------------------------------------------------
//
//
void __fastcall TForm1::ImagerebootMouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
    Imagereboot->Left = Imagereboot->Left - 2;
    Imagereboot->Top = Imagereboot->Top - 2 ;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ImagerebootMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
    Imagereboot ->Left = Imagereboot->Left + 2;
    Imagereboot->Top = Imagereboot->Top + 2 ;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ImagespyatMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
    Imagespyat->Left = Imagespyat->Left + 2;
    Imagespyat->Top = Imagespyat->Top + 2 ;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ImagespyatMouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
    Imagespyat->Left = Imagespyat->Left - 2;
    Imagespyat->Top = Imagespyat->Top - 2 ;
}

@volvo · 21.02.2016, 21:02

C++

void __fastcall TForm1::ImagerebootMouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
    TImage *im = static_cast<TImage*>(Sender);
    im->Left = im->Left - 2;
    im->Top = im->Top - 2;
}

И назначить этот метод всем изображениям на событие OnMouseUp. Аналогично и для остальных обработчиков, работать через Sender...

@Orakul · 21.02.2016, 21:46 **[ТС]**

volvo, компилируется без ошибок только вот код не исполняется при нажатии на image.

Добавлено через 53 секунды

C++

void __fastcall TForm1::ImageMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
    TImage *im = static_cast<TImage*>(Sender);
    im ->Left = im->Left + 2;
    im->Top = im->Top + 2 ;
 
}
void __fastcall TForm1::ImageMouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
    TImage *im = static_cast<TImage*>(Sender);
    im ->Left = im->Left - 2;
    im->Top = im->Top - 2 ;
}

Добавлено через 7 минут
Похоже на то что система не знает про обработчики :
void __fastcall TForm1::ImageMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)

void __fastcall TForm1::ImageMouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)

@BRcr · 21.02.2016, 21:52

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

И назначить этот метод всем изображениям на событие OnMouseUp.

Это было сделано?

@Orakul · 21.02.2016, 22:08 **[ТС]**

volvo, спасибо разобрался , надо еще в инспекторе объектов этот обработчик присвоить каждому image.

Добавлено через 13 минут
BRcr, да сделал , через 5-ть минут догадался выставить в инспекторе объектов.

@BRcr 4043 / 2332 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	21.02.2016, 21:52	4
	Сообщение от volvo И назначить этот метод всем изображениям на событие OnMouseUp. Это было сделано? 0

@Orakul 14 / 10 / 5 Регистрация: 07.07.2012 Сообщений: 171
	21.02.2016, 22:08 [ТС]	5
	volvo, спасибо разобрался , надо еще в инспекторе объектов этот обработчик присвоить каждому image. Добавлено через 13 минут BRcr, да сделал , через 5-ть минут догадался выставить в инспекторе объектов. 0