Возможно ли запустить модальную форму без передачи ей фокуса?

Форумы Помощь по пакетуВозможно ли запустить модальную форму без передачи ей фокуса? ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 1841

Рейтинг: 370

#1: 2009-12-16 22:42:27 ЛС | профиль | цитата

Возможно ли запустить дочернюю (в титульнике не то написал) форму без передачи ей фокуса?
PS. Установку фокуса на главную форму после вызова дочерней формы не предлагать так как в моей реализации программы в некоторых случаях могут возникать мелькания главной формы и сбрасывание попытки нажатия на интерфейсный элемент программы...

карма: 1

Альтернативная сборка HiAsm 4.

Ответов: 5446

Рейтинг: 323

#2: 2009-12-16 22:46:02 ЛС | профиль | цитата

CriDos, вообще говоря, требования взаимопротиворечащие: модальная - и без фокуса.

карма: 1

Ответов: 1841

Рейтинг: 370

#3: 2009-12-16 22:50:32 ЛС | профиль | цитата

ошибся, не модальную а дочернюю...

карма: 1

Альтернативная сборка HiAsm 4.

Ответов: 4641

Рейтинг: 334

#4: 2009-12-16 23:10:19 ЛС | профиль | цитата

как то так может


Add(MainForm,2953706,196,77)
{
 Point(doSetFocus)
 Point(doBringToFront)
 Point(onMove)
 Point(onSetFocus)
 link(onMove,4992081:doWork1,[(240,104)])
 link(onSetFocus,4992081:doWork2,[])
}
Add(ChildForm,1520540,91,147)
{
}
BEGIN_SDK
  Add(EditMulti,10261210,21,21)
  {
  }
  Add(MainForm,7541618,35,105)
  {
   Left=35
   Top=105
  }
END_SDK
Add(Label,3978868,196,147)
{
 Left=220
 Top=75
}
Add(Timer,1372644,91,105)
{
 Interval=100
 AutoStop=1
 link(onTimer,245149:doEvent1,[])
}
Add(Hub,245149,154,105)
{
 link(onEvent1,2953706:doSetFocus,[])
 link(onEvent2,5488029:doWork2,[])
}
Add(HubEx,5488029,175,112)
{
 link(onEvent,2953706:doBringToFront,[])
}
Add(HubEx,4992081,236,105)
{
 link(onEvent,5488029:doWork3,[(253,111)(253,132)(179,132)])
}

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 1841

Рейтинг: 370

#5: 2009-12-16 23:22:12 ЛС | профиль | цитата

такой способ к сожалению тоже не подходит...
------------ Дoбавленo в 23.39:
Вот часть схемы в которой мне нужно сделать так чтобы при запуска превью изображения фокус оставался на главной форме, но проблема в том что если в списке очень много изображений то при быстром селектировании следующих строк заметно мелькание главной формы...
Скачать пример.

карма: 1

Альтернативная сборка HiAsm 4.

файлы: 1

primer.rar [18KB] [120]

Гость

Ответов: 17029

Рейтинг: 0

#6: 2009-12-16 23:49:33 правка | ЛС | профиль | цитата

Редактировалось 2 раз(а), последний 2025-01-12 02:04:38

карма: 0

Ответов: 1841

Рейтинг: 370

#7: 2009-12-16 23:50:28 ЛС | профиль | цитата

Блин, вылетел...

карма: 1

Альтернативная сборка HiAsm 4.

Администрация

Ответов: 15295

Рейтинг: 1519

#8: 2009-12-17 13:02:15 ЛС | профиль | цитата

это можно сделать, например, заменив строку 50 в WinTools следующим образом:


#pas
   if ReadBool(_Data) then
     f := SW_SHOWNOACTIVATE   // <--- this
   else f := SW_HIDE;
   ShowWindow(ReadInteger(_Data,_data_Handle,0),f);

тогда вызов doShow будет показывать указанную форму неактивной

карма: 26

https://hiasm.com

Голосовали: CriDos

Гость

Ответов: 17029

Рейтинг: 0

#9: 2009-12-17 13:21:26 правка | ЛС | профиль | цитата

Редактировалось 2 раз(а), последний 2025-01-12 02:04:38

карма: 0

Разработчик

Ответов: 4698

Рейтинг: 426

#10: 2009-12-17 14:08:57 ЛС | профиль | цитата

Dilma писал(а):

это можно сделать, например, заменив строку 50 в WinTools следующим образом:

А можно и не играть с исходниками(если обновляешься с SVN):

Add(MainForm,2953706,308,189)
{
}
Add(Button,14384285,252,238)
{
 Left=210
 Top=85
 link(onClick,5190814:doWork1,[])
}
Add(ChildForm,5190814,308,238)
{
}
BEGIN_SDK
  Add(EditMulti,2282539,21,21)
  {
   WorkCount=1
   link(doWork1,13992861:doShow,[(67,27)(67,167)])
  }
  Add(MainForm,15046358,112,112)
  {
   Left=35
   Top=105
   Visible=1
   Point(Handle)
  }
  Add(InlineCode,13992861,112,161)
  {
   WorkPoints=#6:doShow|
   EventPoints=#6:onShow|
   DataPoints=#6:Handle|
   Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|22:     handle:THI_Event;|22:     onShow:THI_Event;|5:     |51:     procedure doShow(var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doShow;|5:begin|60:  ShowWindow(ReadInteger(_Data,Handle,0),SW_SHOWNOACTIVATE);|33:  _hi_CreateEvent(_Data,@onShow);|4:end;|0:|4:end.|
   link(Handle,15046358:Handle,[])
  }
END_SDK