Скриншот не делается при повторном нажатии на кнопку

@Dmitry_92_92 · Регистрация: 10.12.2020

Студворк — интернет-сервис помощи студентам

Всем привет. Я в своей программе делаю возможность создания скриншота по нажатию на кнопку F1, при нажатии на кнопку программа сворачивается на 2 сек. делается скриншот и программа вновь разворачивается. Всё работает отлично, но проблема возникает после того как программа сделала скриншот и развернулась, и окно программы становится не активным, из-за этого при повторном нажатии на кнопку F1 ничего не происходит, приходится нажмимать на программу чтобы она была активной и снова нажимать F1, тогда делаются скриншоты. Подскажите пожалуйста что можно сделать?

Использую этот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
....
var
 Form2: TForm2;
 pics, numb, LastRow: integer;
 str1,userpof,s10,S11,s15,FN,name1: string;
....
 
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 
  begin
 
if(Key=VK_F1)then SpeedButton8.Click;
 
end;
 
procedure TForm2.SpeedButton8Click(Sender: TObject);
var
bmp:TBitmap;
jpg_img: TJPEGImage;
j: integer;
dir: string;
 FS: TFormStyle;
begin
 
       ShowWindow(Handle, SW_MINIMIZE);
 
 Timer5.Enabled:=true;
 
end;
 
 
procedure TForm2.Timer5Timer(Sender: TObject);
var
bmp:TBitmap;
jpg_img: TJPEGImage;
j: integer;
 dir: string;
 FS: TFormStyle;
begin
 
     If Form2.WindowState=wsMinimized Then
   Begin
    Form2.Visible:=True;
    Form2.WindowState:=wsNormal;
   End;
 
   FS:=Form2.FormStyle;
   Form2.FormStyle:=fsStayOnTop;
 
 
s10 := GetEnvironmentVariable('USERPROFILE');
 dir:= s10+'\Documents\скриншоты\';
 
 if not DirectoryExists(s10+'\Documents\скриншоты') then begin
 
    CreateDir(s10+'\Documents\скриншоты');
 
   end;
 
  bmp := TBitmap.Create;
    bmp.Width := Screen.Width;
    bmp.Height := Screen.Height;
    BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
           GetDC(0), 0,0,SRCCOPY);
 
           jpg_img := TJPEGImage.Create;
           jpg_img.Assign(bmp);
  jpg_img.CompressionQuality := 100;
  jpg_img.Compress;
  bmp.Free;
 
      GetFileCount(Edit6.Text);
edit6.Text:= IntToStr(Pics);
       numb:= Pics+1;
str1:= IntToStr(numb);
 
  jpg_img.SaveToFile(s10+'\Documents\скриншоты\'+'Скриншот_'+str1+'.jpg');
  jpg_img.Free;
 
 
end;
 
Form2.FormStyle:=FS;
           
               Timer5.Enabled:=false;
end;

@D1973 · 25.05.2023, 12:07

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

@Dmitry_92_92 · 25.05.2023, 12:59 **[ТС]**

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

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

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
FS: TFormStyle;
...
procedure TForm2.Timer8Timer(Sender: TObject);
begin
 If Form2.WindowState=wsMinimized Then
   Begin
    Form2.Visible:=True;
    Form2.WindowState:=wsNormal;
   End;
 
   FS:=Form2.FormStyle;
   Form2.FormStyle:=fsStayOnTop;
 
 
 
               Timer8.Enabled:=false;
end;

@Massaraksh7 · 25.05.2023, 14:01

А SetActiveWindow не пробовал?

@Dmitry_92_92 · 25.05.2023, 14:13 **[ТС]**

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

А SetActiveWindow не пробовал?

Прошерстил инет, нашел решение, спасибо!

Добавил в конец:

Delphi
1
2
3
Self.Show;
GetForegroundWindow();
SetForegroundWindow(Handle);

@AzAtom · 25.05.2023, 14:48

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

Delphi
1
2
3
4
5
6
7
  ShowWindow(Handle, SW_MINIMIZE);
...
  If Form2.WindowState=wsMinimized Then
  Begin
    Form2.Visible:=True;
    Form2.WindowState:=wsNormal;
  End;

Зачем это? Достаточно просто

Delphi
1
2
3
Visible := false;
// и 
Visible := true;

И окно появляется активным и реагирует на дальнейшие нажатия клавиш.

Добавлено через 1 минуту
Ну и совет D1973 в силе, конечно - сначала остановка таймера, затем скрин, сохранение в файл и в конце показ формы.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 31.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 30.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@D1973 Модератор 9917 / 6454 / 2455 Регистрация: 21.01.2014 Сообщений: 27,389 Записей в блоге: 3
	25.05.2023, 12:07
	Попробуйте сначала проделать все файловые операции и только потом восстанавливать окно программы из свернутого состояния. 1

@Massaraksh7 Айлурофил 511 / 445 / 111 Регистрация: 27.05.2017 Сообщений: 2,675 Записей в блоге: 5
	25.05.2023, 14:01
	Сообщение было отмечено Dmitry_92_92 как решение Решение А SetActiveWindow не пробовал? 1

Скриншот не делается при повторном нажатии на кнопку

Решение