Цитата:
|
Сообщение от Григорий Т.
Вы предлагаете мне написать новую программу, вместо того, чтобы устранить баг в уже работающей?..
|
Это не баг, а системная функция
Для устранения данного нежелательного эффекта можно компонент на форму не кидать, а создавать его во время выполнения кода:
Код:
...
var
SendKeys1: TSendKeys;
begin
SendKeys1:= TSendKeys.Create(SendKeys1);
try
with SendKeys1 do
begin
GetWindowHandle('Блокнот');
if WindowHandle <> 0 then SendKeys('Это проверка');
... // Здесь ещё что-то делаем с компонентом
end;
...
finally
SendKeys1.Destroy; // или .Free, смотря что там у него есть
end;
end;