Доброго времени суток
жекаизжека
Значит
1) Проверить существует ли файл в директории можно так
Цитата:
if FileExists('C:\1.bmp') then
ShowMessage(Файл есть); //Вместо сообщения твои действия
else
ShowMessage(Файла нет.); //Вместо сообщения твои действия
|
Присвоить событие можно так (Предположим, что у тебя два Img и взависимости от этого надо вывести два сообщения)
Цитата:
procedure MyProcedure(Ctrl: TControl); (*сюда передаешь Image, если хочешь параметры можно изменить это всего лишь пример*)
begin
if Ctrl is TImage then
if TImage(Ctrl).Tag = 1 then
begin
//здесь твой обработчик для первого Image
end else
begin
//здесь твой обработчик для второго Image
end;
end;
|
А вообще почитай литературу по Delphi вещь полезная, тем более, что ты программируешь, а значит тебе это интересно.