Компонент Timage

[Xeon332]

Ребят подскажите как сделать так, чтобы при нажатии на рисунок, выскакивало какое-либо сообщение...

[Xeon332]

да и как вобще рисунок разместить на компоненте???

[DomiNick]

Эм.... Это вы шутите так?)

procedure TForm1.Image1Click(Sender: TObject);
begin
MessageDlg('Вы нажали на изображение',mtInformation,[mbCancel],0);
end;

[Xeon332]

всё понял. чёт сразу не сообразил...

[Xeon332]

а gif можно разместить на этой компоненте? если да, то каким образом?

[Xeon332]

а как сделать так, чтобы при нажатие на компонет Timage сообщение появилось в TLable???

[Noor]

Поправочка ... не TLable , а TLabel

procedure TForm1.Image1Click(Sender: TObject);
begin
Label1.Caption :='Вы нажали на изображение';
end;

и почитайте книжки по Delphi

[Hollander]

Gif в Timage нельзя проиграть(вроде можно только отобразить первый кадр). Для этого нужно использовать сторонние компоненты или же искать алгоритм который будет брать кадры и пихать их в Timage(что собственно говоря не очень).
По поводу 2 вопроса:

procedure TForm1.Image1Click(Sender: TObject);
begin
Label1.Caption = 'Вы нажали на изображение';
end;

[DomiNick]

Мда... Видимо не шутите...

procedure TForm1.Image1Click(Sender: TObject);
begin
label1.caption:='Сообщение';
end;