Как вставить картинку из папки?

[logitech12]

Добрый день Господа!
Подскажите как сделать так, чтобы по нажатию на баттон, вылетело окошко (типо showmessage) в котором будет картинка из папки на компе?
папка та, где будет лежать exeшник.. т.е. чтобы была не важна директория..
Заранее спасибо!

[artemavd]

Сам-то понял, что написал? Запомни: нельзя сделать, чтобы в

окошко (типо showmessage)

запихнуть картинку. В сообщениях всегда переменная типа String. Создай отдельную форму, кинь на нее Image и грузи в него картинку и будет тебе счастье. Учи матчасть!

[logitech12]

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

Сам-то понял, что написал? Запомни: нельзя сделать, чтобы в запихнуть картинку. В сообщениях всегда переменная типа String. Создай отдельную форму, кинь на нее Image и грузи в него картинку и будет тебе счастье. Учи матчасть!

мне нужно чтобы вылетало окно отдельное с картинкой. про имейдж я знаю , но нужно не это.. нужно чтобы картинки программа брала из папки

[artemavd]

Ну и сделай как я сказал. В чем проблема-то? Не знаешь как загрузить картинку из папки с программой?
Навскидку:

 Form1.Image1.Bitmap.LoadFromFile(ExtractFilePath(Application.Exename) + '1.bmp');

[logitech12]

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

Ну и сделай как я сказал. В чем проблема-то? Не знаешь как загрузить картинку из папки с программой?
Навскидку:

 Form1.Image1.Bitmap.LoadFromFile(ExtractFilePath(Application.Exename) + '1.bmp');

не работает...

[artemavd]

Ну ты приведи полный код как ты загружаешь. Я на кофейной гуще гадать не буду.

[logitech12]

у меня на форме main menu. по клику на пункт main menu должна появляться картинка в отдельном небольшом окне.

procedure TMainForm.lab1Click(Sender: TObject);
begin
//тут нужен код для вывода этого окна с картинкой
end;

[grom333]

Тебе уже код дали вывода картинки. Не нужно открывать новую форму, кинь на майн форм TPanel на него Timage. Свойство Visible у Panel поставь в False; При вызове картики ставь в true. Вот тебеи на подобие Showmessage;

Если хочешь загружать картинку формата JPEG, то нужен этот код:

Form1.Image1.picture.LoadFromFile(ExtractFilePath(Application.Exename) + '1.jpg');

Только в USES добавь JPEG.

[logitech12]

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

Тебе уже код дали вывода картинки. Не нужно открывать новую форму, кинь на майн форм TPanel на него Timage. Свойство Visible у Panel поставь в False; При вызове картики ставь в true. Вот тебеи на подобие Showmessage;

Если хочешь загружать картинку формата JPEG, то нужен этот код:

Form1.Image1.picture.LoadFromFile(ExtractFilePath(Application.Exename) + '1.jpg');

Только в USES добавь JPEG.

Подгрузить картинку получилось, спасибо! Но она открывается на форме, а не в отдельном окне

[GunSmoker]

http://www.transl-gunsmoker.ru/2009/...g-post_04.html