| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запарка с Timage
demon-777 © (2002-05-03 19:34:00)!Приветствую всех!
Пишу прогу которая делает автораны для компакт дисков (наподобе Autoplay menu studio)
и небыло печали пока...
В общем вопрос такой.
Как програмно нажать на TImage, да так чтобы эта процедура поняла какой из имейджов был нажат (на неё ссылаются 2 имэйджа) ?
Вот процедура
procedure TForm1.image1Click(Sender: TObject);
begin
with FrameViewer do
begin
if Sender = image1 then
HistoryIndex := HistoryIndex +1
else
HistoryIndex := HistoryIndex -1;
end;
end;
Буду очень признателен.
С уважением Дмитрий.
Song (2002-05-03 20:36:00) [1]Тогда уж itself ;)) Это же не Ваша реплика изначально
demon-777 (2002-05-03 20:36:00) [2]>Song © (03.05.02 19:40)
>ImageClick(Image1);
>ImageClick(Image2);
>В чём трабла?
Всё, пора спать=)
demon-777 (2002-05-03 20:30:00) [3]>Pat © (03.05.02 19:48)
>Попробуй так...
>if (Sender as TImage).Name="Image1" then format_c
А может так if (Sender as TImage).Name="Image1" then format_all+himself
Pat (2002-05-03 19:48:00) [4]Попробуй так...
if (Sender as TImage).Name="Image1" then format_c
Song (2002-05-03 19:40:00) [5]ImageClick(Image1);
ImageClick(Image2);
В чём трабла?
| |
