Вверх ↑
Этот топик читают: Гость
Ответов: 223
Рейтинг: 24
#1: 2009-05-03 19:11:30 ЛС | профиль | цитата
Ребята как сделать так , щоб при активации основной формы она была на переднем плане и наоборот,зарание благодарен

Add(Button,75927,133,140)
{
Left=70
Top=20
Width=75
Font=[Arial,8,0,0,1]
Caption="Form1"
link(onClick,30931:doWork1,[])
}
Add(ChildForm,30931,196,140)
{
@Hint=#14:
карма: 0

0
Ответов: 1088
Рейтинг: 112
#2: 2009-05-03 20:10:53 ЛС | профиль | цитата
0)Перед созданием нужно следить в каком разделе создаётся.
1)При копировании схемы из HiAsm нужно переключать раскладку на русскую.
2)Схему надо перезалить.
Хотя судя по всвему схема вот такая:

Add(MainForm,2953706,112,119)
{
Position=1
}
Add(ChildForm,15146469,189,168)
{
}
BEGIN_SDK
Add(EditMulti,14319489,21,21)
{
WorkCount=1
link(doWork1,14986676:doVisible,[(91,27)(91,104)])
}
Add(MainForm,14986676,161,70)
{
Left=35
Top=105
Visible=1
Point(doVisible)
}
END_SDK
Add(Button,6278368,119,168)
{
Left=10
Top=10
Data=Integer(1)
link(onClick,15146469:doWork1,[])
}


карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 4641
Рейтинг: 334
#3: 2009-05-03 20:22:48 ЛС | профиль | цитата
см. примеры
ChildForm
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 1088
Рейтинг: 112
#4: 2009-05-03 20:27:49 ЛС | профиль | цитата
Ravilr, ну и чем же они помогут
Вопрос то прочитай)
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 4641
Рейтинг: 334
#5: 2009-05-03 20:35:41 ЛС | профиль | цитата
Sniper36, я уж подумал что не ту ссылку дал.

Sniper36 писал(а):
Вопрос то прочитай)

если я вопрос не правильно прочитал, значит ты не тот пример получается выложил.
т.к твои пример и пример из вики аналогичны
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 1088
Рейтинг: 112
#6: 2009-05-03 20:41:17 ЛС | профиль | цитата
Ravilr, я выложил схему которую криво выложил wasya всего навсего.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 4641
Рейтинг: 334
#7: 2009-05-03 20:42:40 ЛС | профиль | цитата
Sniper36 писал(а):
Ravilr, я выложил схему которую криво выложил wasya всего навсего.

ясно
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Администрация
Ответов: 15295
Рейтинг: 1519
#8: 2009-05-03 21:27:51 ЛС | профиль | цитата
сегодня такое делается только заменой в hiMainForm.pas строки 508 на

#pas
else Control := NewForm(Applet,'Form');
карма: 27
1
Голосовали:wasya
Ответов: 9906
Рейтинг: 351
#9: 2009-05-03 22:09:54 ЛС | профиль | цитата
Сегодня можно делать две дочерние, а главная - невидима.

Add(MainForm,2455660,392,98)
{
Left=20
Top=105
Visible=1
}
Add(ChildFormEx,4135434,280,119)
{
link(onClose,2455660:doClose,[])
link(onClick,15056260:doVisible,[])
}
BEGIN_SDK
Add(EditMultiEx,15961150,21,21)
{
EventCount=#7:onClose|7:onClick|
Width=202
Height=130
}
Add(MainForm,13324381,91,70)
{
Left=35
Top=105
Width=281
Height=170
Point(doPlaceInTaskBar)
Point(Close)
link(onCreate,13324381:doPlaceInTaskBar,[(136,90)(136,119)(79,119)(79,104)])
link(Close,4982265:GetData,[])
}
Add(Button,2167996,161,77)
{
Left=20
Top=35
Caption="Show"
link(onClick,15961150:onClick,[(223,83)(223,34)])
}
Add(EventFromData,4982265,91,21)
{
link(onEvent,15961150:onClose,[])
}
END_SDK
Add(ChildFormEx,15056260,336,126)
{
}
BEGIN_SDK
Add(EditMultiEx,11609040,21,21)
{
WorkCount=#9:doVisible|
Width=230
Height=151
link(doVisible,943011:doVisible,[(21,111)])
}
Add(MainForm,943011,63,77)
{
Left=135
Top=205
Width=295
Height=111
Caption="ChildForm"
Visible=1
Point(doVisible)
}
END_SDK
Поскольку у нас прямых наследников аплета получается всегда не больше одного, можно просто отождествлять нашу "главную" с аплетом - в кодах hiMainForm.pas
Такие правки были бы разумны, если все внимательно просмотреть...
Как это, в общем-то, и принято в KOL-овских проектах.
карма: 9

1
Голосовали:wasya
Ответов: 4641
Рейтинг: 334
#10: 2009-05-03 22:15:28 ЛС | профиль | цитата
Galkov писал(а):
Сегодня можно делать две дочерние, а главная - невидима.

я вот так играюсь


Add(MainForm,2953706,168,77)
{
Width=10
Height=10
AlphaBlendValue=50
BorderStyle=6
}
Add(ChildForm,3174755,105,147)
{
}
BEGIN_SDK
Add(EditMulti,9756362,21,21)
{
}
Add(VisualShape,2087180,280,28)
{
Width=395
Height=20
Color2=-16777215
}
Add(MainForm,13239181,182,28)
{
Left=35
Top=105
Width=399
Ctl3D=0
WinStyle=2
BorderStyle=0
DragForm=0
Point(Handle)
link(onCreate,3982043:doEvent1,[(232,48)(232,204)(142,204)(142,167)])
}
Add(Button,6595469,56,49)
{
Left=370
Width=25
Font=[MS Sans Serif,8,1,0,1]
Caption="X"
link(onClick,13239181:doClose,[])
}
Add(Button,16508967,56,133)
{
Left=345
Width=25
Font=[MS Sans Serif,8,1,0,1]
Caption="_"
link(onClick,11184747:doMinimize,[])
}
Add(PosWindow,3549639,182,161)
{
Left=100
Top=200
link(Handle,8345171:Var2,[])
}
Add(Hub,3982043,147,161)
{
OutCount=3
link(onEvent1,3549639:doLeft,[])
link(onEvent2,3549639:doTop,[])
}
Add(WinTools,11184747,119,105)
{
Point(doMinimize)
Point(doQuit)
link(Handle,8345171:Var3,[(125,86)])
}
Add(GetDataEx,8345171,175,77)
{
link(Data,13239181:Handle,[])
}
END_SDK
Add(ChildForm,13269496,105,98)
{
link(onEvent1,2953706:doClose,[])
}
BEGIN_SDK
Add(EditMulti,9756362,21,21)
{
EventCount=1
Width=349
Height=221
}
Add(VisualShape,2087180,259,28)
{
Width=395
Height=20
Color2=-16777215
}
Add(MainForm,13239181,161,28)
{
Left=35
Top=105
Width=397
Ctl3D=0
WinStyle=2
BorderStyle=6
DragForm=0
Point(doBringToFront)
Point(Handle)
}
Add(Button,6595469,28,70)
{
Left=370
Width=25
Font=[MS Sans Serif,8,1,0,1]
Caption="X"
link(onClick,12456969:doEvent1,[])
}
Add(Button,16508967,28,154)
{
Left=345
Width=25
Font=[MS Sans Serif,8,1,0,1]
Caption="_"
link(onClick,11184747:doMinimize,[])
}
Add(Hub,12456969,77,70)
{
link(onEvent1,13239181:doClose,[(126,76)(126,55)])
link(onEvent2,9756362:onEvent1,[(304,83)(304,27)])
}
Add(Label,9400464,308,189)
{
Left=145
Top=55
Width=95
Caption="как бы основная"
}
Add(WinTools,11184747,161,126)
{
Point(doMinimize)
Point(doQuit)
link(Handle,13239181:Handle,[])
}
END_SDK


wasya, можешь тоже так. Если тебе так надо!
карма: 1
Время верстки: %cr_time% Текущее время: %time%
1
Голосовали:wasya
Ответов: 223
Рейтинг: 24
#11: 2009-05-04 10:10:39 ЛС | профиль | цитата
Galkov, Ravilr, Dilma, Всем спасибо за помощь.
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#12: 2009-05-04 10:49:59 ЛС | профиль | цитата
Galkov писал(а):
Сегодня можно делать две дочерние, а главная - невидима.

это не вариант. Так кнопку на панели управления никогда правильно работать не заставишь. По хорошему надо было давать возможность выбора - наследовать формы друг от друга или от апплета. Совсем уж по хорошему это возможность выбора данного признака для каждой конкретной формы.
карма: 27
0
Ответов: 9906
Рейтинг: 351
#13: 2009-05-04 11:25:55 ЛС | профиль | цитата
Это вариант.
А если никогда не делать NewApplet, а просто отождествлять нашу главную с аплетом, то это еще и 100%-ный вариант.
И возможности при этом как работы с кнопками аплета, как и комбинаций взаимо-онерства - ровно такие же как и в Kol
Если у них не заставишь, ну значит и у нас не заставишь. И наоборот...
карма: 9

0
Администрация
Ответов: 15295
Рейтинг: 1519
#14: 2009-05-04 12:14:04 ЛС | профиль | цитата
чем дальше в лес, тем больше дров...
карма: 27
0
Ответов: 9906
Рейтинг: 351
#15: 2009-05-04 13:05:46 ЛС | профиль | цитата
Тем не менее, такой мелкий вопрос имеет место быть: сегодня не всякую комбинацию "взаимо-онерства", которую могут сделать дельфяне под KOL - мы можем сделать.
Про дрова - ДА.
Если дорабатывать элемент (и мы уже сможем) - они появятся.

карма: 9

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