[STIFLER]

Мне нужно что бы при определенном событии, типа клика, загружался скриншот с подсказкой. Можно даже тупо что бы он открывался программе для просмотра изображений по умолчанию. Картинки лежат в папке с прогой. В идеале конечно чтобы изображения загржулись в отдельной областе(форме) программы. Лопатил инет 3 часа, а ответа на такой простой вопрос так и не нашел. Заранее благодарю за помощь.

[PhoeniX]

В "стандартной программе" - ShellExecute.
В "новой форме" - вручную её создаёшь, на ней TImage, потом Image1.LoadFromFile.
Неужели не нагуглил?

[Assistant]

дополнение: шоб юзать ShellExecute, нужно в Uses добавить ShellAPI

DJ PhoeniX, ты спишь когда нибудь?

[PhoeniX]

Чувак, я ж робот Я никогда не сплю
А вообще, просто неохота спать

[Assistant]

юзать кстати так:

Код:

var
  s: string;
begin
  s := 'c:\123.jpg';
  ShellExecute(Handle,'open',PChar(s),nil,nil,SW_SHOW);
end;

DJ PhoeniX, роботы не пьют

[PhoeniX]

Assistant, а как же ж Bender?
и прекращаем оффтопить

[ryderx34]

Показывает картинку в отдельном окне:

Код:

procedure ViewImage(const FileName: string);
var
  ImgForm: TForm;
begin
  ImgForm := TForm.Create(nil);
  with ImgForm do
  try
    BorderIcons := [biSystemMenu];
    BorderStyle := bsSingle;
    Caption := ExtractFileName(FileName);
    ClientHeight := 240;
    ClientWidth := 320;
    Position := poDesktopCenter;
    with TImage.Create(ImgForm) do
    begin
      Parent := ImgForm;
      Align := alClient;
      Picture.LoadFromFile(FileName);
      Stretch := True;
    end;
    ShowModal;
  finally
    Free;
  end;
end;

[STIFLER]

Спасибо всем. Я разобрался