Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.16;
Скачать: CL | DM;

Вниз

Запарка с Timage   Найти похожие ветки 

 
demon-777 ©   (2002-05-03 19:34) [0]

!Приветствую всех!

Пишу прогу которая делает автораны для компакт дисков (наподобе 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 19:40) [1]

ImageClick(Image1);
ImageClick(Image2);

В чём трабла?


 
Pat ©   (2002-05-03 19:48) [2]

Попробуй так...
if (Sender as TImage).Name="Image1" then format_c


 
demon-777 ©   (2002-05-03 20:30) [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



 
Song ©   (2002-05-03 20:36) [4]

Тогда уж itself ;)) Это же не Ваша реплика изначально


 
demon-777 ©   (2002-05-03 20:36) [5]

>Song © (03.05.02 19:40)
>ImageClick(Image1);
>ImageClick(Image2);
>В чём трабла?

Всё, пора спать =)



Страницы: 1 вся ветка

Текущий архив: 2002.05.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
7-50139
rambler
2002-02-08 18:50
2002.05.16
Серийные номера HDD, мать ....


4-50174
HELP!!!!!!!!!!!!!!!
2002-03-16 09:15
2002.05.16
СРОЧНО ПОМОГИТЕ!


1-50014
DeMoN-777
2002-04-28 12:34
2002.05.16
Куда спрятать картинки ?


3-49823
Awex
2002-04-18 13:44
2002.05.16
Получение списка юзеров IB Server a


4-50157
star
2002-01-10 10:24
2002.05.16
Как вытащить текст из чужого RichEdit ?