[жекаизжека]

помогите доделать, нужно чтобы:
1) к TImage на 2форме присваивалось событие, для каждого картинке разное, при ошибке, нахождения файл, выдавал сообщение.
2)Рисунок со 2 формы автоматически появлялся на 1 форме в TImage
3)На 2форме можно было выбирать директорию картинок
4) что бы картинка запоминалась после выключения приложения и появлялась при включение, при условии что бы она была и на первой форме + ее событие

Внизу то что я сделал, добавьте картинки сами (1.bmp, 2.bmp, 3.bmp)

[жекаизжека]

Народ почти все сделал, кроме проверки картики на ее размещение в папке и события

[жекаизжека]

ну вот...((

[melnikovpa]

Доброго времени суток жекаизжека
Значит
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 вещь полезная, тем более, что ты программируешь, а значит тебе это интересно.

[жекаизжека]

спасибо, сделал )) теперь другая проблема появилась

на форме ComboBox и Image , при выборе пункта из Combo появляеться картинка в Image , при закрытие формы,компаненты сохраняються, при открытие формы сохраняется только выбранный пунк в Combo, а в Image картинка продавает, вот код

чтение

Код:

var
Ini:TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config\data.ini');
ComboBox1.ItemIndex:=Ini.ReadInteger('FORM3','Form3ComboBox1ItemIndex', Form3.ComboBox1.ItemIndex;
Ini.Free;
end;

запись

Код:

var
Ini:TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config\data.ini');
Ini.WriteInteger('Form3','Form3ComboBox1ItemIndex',Form3.ComboBox1.ItemIndex);
Ini.Free;
end;

Admin: 3-х дневный бан за систематическое нарушение правил форума, пункт 2.8.

Можете сказать где ошибка?

[melnikovpa]

Итак... Предположим что у тебя есть Сombo Box и Image. По событию onChange у тебя загружается картинка.

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Image1.Picture.loadFromFile(ComboBox1.Text);
end;

При смене индекса в Combobox событие OnChange не вызывается, для того чтобы это исправить тебе надо сделать так:

var
Ini:TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(Application.E xeName)+'config\data.ini');
ComboBox1.ItemIndex:=Ini.ReadInteger('FORM3','Form 3ComboBox1ItemIndex', Form3.ComboBox1.ItemIndex);
ComboBox1.OnChange(nil); //данная строчка вызовет OnChange
Ini.Free;
end;

Это только один из способов решения этой проблемы... ПОЧИТАЙ ЛИТЕРАТУРУ ПО DELPHI и многие вещи кажущиеся трудными покажутся тебе очень простыми....