Вверх ↑
Этот топик читают: Гость
Ответов: 11
Рейтинг: 0
#1: 2024-01-17 14:06:24 ЛС | профиль | цитата
Нужно чтобы программа открывалась внутри ChildGroupBox а не на рабочем столе. Вообще, нужно что бы в каждой вкладке открывать Яндекс браузер c отдельным профилем.

Make(delphi)
ver(4.05 build 186)
Add(MainForm,7924267,28,56)
{
Width=376
Height=339
Caption="Пример использования Tab Control"
link(onCreate,909819:doWork1,[(135,76)(135,62)])
}
Add(TabControl,15044963,126,98)
{
Left=10
Top=10
Width=340
Height=290
Tabs=#5:Page1|
Bitmaps=[]
}
Add(ChildGroupBox,909819,210,56)
{
}
BEGIN_SDK
Add(EditMulti,7788361,21,21)
{
WorkCount=1
link(doWork1,5989879:doExec,[(98,27)(98,69)])
}
Add(GroupBox,6299921,42,84)
{
Left=25
Top=55
Width=609
Height=539
Caption="Page1"
Point(doBringToFront)
}
Add(WinExec,5989879,175,63)
{
FileName="notepad.exe"
}
END_SDK
карма: 0

0
Ответов: 782
Рейтинг: 168
#2: 2024-01-17 18:51:18 ЛС | профиль | цитата
Olegam писал(а):
Нужно чтобы .....
Вообще, нужно что бы .......

Add(TabControl,15044963,182,98)
{
Width=360
Height=25
Align=2
Tabs=#5:Page1|
Bitmaps=[]
}
Add(MainForm,7924267,189,168)
{
Width=376
Height=339
Caption="Пример использования Tab Control"
link(onCreate,909819:doWork1,[])
}
Add(ChildGroupBox,909819,245,182)
{
}
BEGIN_SDK
Add(EditMulti,7788361,21,28)
{
WorkCount=1
Width=657
Height=333
link(doWork1,5989879:doExec,[(123,34)(123,174)])
}
Add(GroupBox,6299921,350,42)
{
Top=25
Width=360
Height=275
Align=5
Caption="Page1"
Point(doBringToFront)
Point(Handle)
Point(Width)
Point(Height)
Point(Left)
Point(Top)
}
Add(WinExec,5989879,133,168)
{
FileName="notepad.exe"
Mode=3
link(onExec,3773720:doDeferredEvent,[])
}
Add(FindWindow,3759560,231,168)
{
ClassName="Notepad"
SkipParam=1
link(onFind,166549:doEvent1,[])
}
Add(SetParent,11920424,329,140)
{
link(NewParent,6299921:Handle,[(342,82)(356,82)])
}
Add(DeferredEvent,3773720,182,168)
{
Delay=100
link(onDeferredEvent,3759560:doFind,[])
}
Add(SizeWindow,1387364,350,175)
{
link(Width,6299921:Width,[])
link(Height,6299921:Height,[])
}
Add(PosWindow,11135766,399,189)
{
link(Left,6299921:Left,[(412,166)(377,166)])
link(Top,6299921:Top,[(419,159)(384,159)])
}
Add(Hub,166549,280,168)
{
OutCount=6
link(onEvent1,11920424:doSetParent,[(305,174)(305,146)])
link(onEvent2,1387364:doWidth,[])
link(onEvent3,1387364:doHeight,[])
link(onEvent4,11135766:doLeft,[])
link(onEvent5,11135766:doTop,[])
link(onEvent6,3371259:doSetBorderStyle,[(340,209)(340,223)])
}
Add(WinBorders,3371259,350,217)
{
BorderStyle=0
}
END_SDK


Редактировалось 2 раз(а), последний 2024-01-17 19:58:56
карма: 15

0
Ответов: 11
Рейтинг: 0
#3: 2024-01-17 21:11:53 ЛС | профиль | цитата
Спасибо.Буду дальше думать.Сначало нужно будет выяснить будет ли браузер "засыпать" если вкладка не активна.
карма: 0

0
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)