Появление текста в Memo.

[wolfgrey21]

Delphi 7 . Как сделать что при нажатий на картинку в поле Memo появлялся текст.

[Sciv]

Если имеется в виду картинка типа TImage, то у нее нет события OnClick. Нужно отрабатывать OnClick формы и проверять, попала ли мышь в это время в пределы картинки

[wolfgrey21]

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

Если имеется в виду картинка типа TImage, то у нее нет события OnClick. Нужно отрабатывать OnClick формы и проверять, попала ли мышь в это время в пределы картинки

TImage картинка и при нажатий в Memo появляется текст . Только по подробней.

[Sciv]

А чего тут подробней? Предположим, координаты картинки (100, 100, 200, 200 - верхняя правая и нижняя левая точки). В событии Form1OnClick записываем кодом алгоритм:

Если (Cursor.X>=100) и (Cursor.X<=200) и (Cursor.Y>=100) и (Cursor.Y<=200) тогда
Memo1.Lines.Add('текст');

[W0LF]

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

А чего тут подробней? Предположим, координаты картинки (100, 100, 200, 200 - верхняя правая и нижняя левая точки). В событии Form1OnClick записываем кодом алгоритм:

Если (Cursor.X>=100) и (Cursor.X<=200) и (Cursor.Y>=100) и (Cursor.Y<=200) тогда
Memo1.Lines.Add('текст');

Зачем "велосипедить" велосипед? У TImage тоже есть OnClick.

[Serge_Bliznykov]

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

Зачем "велосипедить" велосипед? У TImage тоже есть OnClick.

угу. точно так, подтверждаю!
даже в антикварной Delphi5 у TImage уже было событие OnClick.

[Sciv]

Зачем "велосипедить" велосипед? У TImage тоже есть OnClick.

угу. точно так, подтверждаю!

хм, и вправду... с чем же я ее попутал-то?

Полезу в дельфи выяснять. Спасибо за поправку.

[wolfgrey21]

Спасибо за помощь