Вверх ↑
Этот топик читают: Гость
Ответов: 4
Рейтинг: 0
#1: 2013-01-11 06:30:56 ЛС | профиль | цитата
Доброе время суток
Уважаемые форумчане подскажите пожалуйста как организовать поиск обьектов по форме (на подобии встроенного, т е Строка , Где искать, Список найденного) например по параметру Caption или Name
ЗЫ поиск конечно в готовой программке , а не в конструкторе
Вот схема с которой работаю
code_30025.txt
Спасибо

карма: 0

0
файлы: 1code_30025.txt [3KB] [91]
Ответов: 8926
Рейтинг: 823
#2: 2013-01-11 11:41:06 ЛС | профиль | цитата
alexxx123, нужные данные выбирайте:
code_30027.txt
карма: 19

0
файлы: 1code_30027.txt [3.5KB] [112]
Ответов: 4
Рейтинг: 0
#3: 2013-01-12 00:58:13 ЛС | профиль | цитата
Леонид, спасибо, но я пока новичек и видимо неспособен разобраться с вашим кодом. Возможно я неправильно поставил задачу.
Хотелось бы чтото типа этого http://i54.fastpic.ru/big/2013/0111/ea/69ca95c4ac9cdd61d61a55c1c055aaea.jpg но не в конструкторе а уже в скомпилированном exeшнике
Т е запускаю свою програмку, ввожу в поле слово , жму кнопку, получаю окно со списком полей где встречается это самое слово и фокусом на обьект выбранный из списка найденного
Блин путано конечно Просто если вам не трудно воспользуйтесь поиском в конструкторе и подскажите как реализовать подобное в своей программке.
Спасибо

------------ Дoбавленo в 00.58:
Чую гдето рядом отгадка
Сделал поиск в файле .sha с выводом результатов в ListBox (в список выводит параметр name (например слово - Три)в схеме 2 соответствия)
Как теперь сделать чтобы при выборе строки в ListBox курсор перескакивал на соответствующий элемент, при выборе следующей строки - следующий элемент... и тд вобщем както выделялся

Make(delphi)
ver(4.04 build 184)
Add(ChildScrollBox,3375844,224,14)
{
@Hint=#15:Спасибо olDjeka|
FirstUsage=0
}
BEGIN_SDK
Add(EditMulti,6395808,21,21)
{
EventCount=1
WorkCount=2
Width=237
Height=207
link(doWork1,9102620:doSetFocus,[(84,27)(84,125)])
link(doWork2,12769341:doEvent1,[(-7,34)(-7,272)])
}
Add(ScrollBox,9102620,147,105)
{
Left=4
Top=5
Width=1263
Height=901
Ctl3D=901
Point(onMouseWheel)
Point(doSetFocus)
link(onMouseWheel,6335071:doOperation,[(191,111)(191,147)(86,147)(86,174)])
}
Add(Math,16577956,154,168)
{
@Hint=#14:-1 крутит вниз|
OpType=1
ResultType=0
link(onResult,9102620:doVScroll,[(197,174)(197,155)(135,155)(135,118)])
link(Op1,9102620:VPos,[])
}
Add(Math,6335071,98,168)
{
@Hint=#14:-1 крутит вниз|
OpType=3
Op2=1.43
ResultType=0
link(onResult,16577956:doOperation,[])
}
Add(BitBtn,9275062,63,245)
{
Top=-10
Width=180
Height=185
Font=[MS Sans Serif,8,0,4259584,1]
Name="5"
Caption="1"
Data=String(file://localhost/C:/Documents%20and%20Settings/ves/Рабочий%20стол/default1.htm)
Point(doSetFocus)
link(onClick,4560149:doEvent1,[(247,251)(247,76)])
}
Add(BitBtn,12744867,63,287)
{
Top=-200
Width=180
Height=185
Name="6"
Caption="2"
Data=String(file://localhost/C:/Documents%20and%20Settings/ves/Рабочий%20стол/default1.htm)
link(onClick,5624864:doEvent2,[(408,293)(408,83)])
}
Add(Hub,4560149,343,70)
{
InCount=100
OutCount=1
link(onEvent1,6666510:doEvent1,[(658,76)(658,293)])
}
Add(Hub,5624864,420,70)
{
InCount=100
OutCount=1
link(onEvent1,6666510:doEvent2,[(732,76)(732,300)])
}
Add(Hub,13123391,490,70)
{
InCount=100
OutCount=1
link(onEvent1,6666510:doEvent3,[(760,76)(760,307)])
}
Add(Hub,2181583,560,70)
{
InCount=100
OutCount=1
link(onEvent1,6666510:doEvent4,[(788,76)(788,314)])
}
Add(Hub,5573985,623,70)
{
InCount=100
OutCount=1
link(onEvent1,6666510:doEvent5,[(816,76)(816,321)])
}
Add(Hub,6666510,833,287)
{
InCount=5
OutCount=1
link(onEvent1,6395808:onEvent1,[(859,293)(859,160)(246,160)(246,27)])
}
Add(Hub,12769341,21,266)
{
}
Add(BitBtn,12653220,63,329)
{
Top=-390
Width=180
Height=185
Name="7"
Caption="3"
Data=String(file://localhost/C:/Documents%20and%20Settings/ves/Рабочий%20стол/default1.htm)
link(onClick,4560149:doEvent40,[(278,335)(278,349)])
}
Add(ImgBtn,3070919,63,392)
{
Left=5
Top=182
Width=175
Height=180
Name="Три 123"
}
Add(ImgBtn,16661994,63,441)
{
Left=5
Top=367
Width=175
Height=180
Name="Три 2"
}
Add(ImgBtn,14753066,63,490)
{
Left=5
Top=742
Width=175
Height=180
Name="3"
}
Add(ImgBtn,3772497,63,532)
{
Left=5
Top=557
Width=175
Height=180
Name="4"
}
Add(SearchInFile,7590536,154,483)
{
FileName="C:program filesHiAsmProject3.sha"
link(onSearch,13161790:doAdd,[(198,489)(198,541)(163,541)(163,489)])
link(Text,4529124:Text,[(167,461)(160,461)])
}
Add(Button,16447967,105,483)
{
Left=200
Top=255
link(onClick,7590536:doSearch,[])
}
Add(Edit,4529124,154,406)
{
Left=270
Top=255
Width=190
}
Add(ListBox,13161790,245,483)
{
Left=230
Top=530
Width=550
SelectAdd=0
Point(onMouseLeave)
link(onClick,9844879:doText,[(289,496)(289,562)(191,562)(191,629)])
link(onMouseLeave,9275062:doSetFocus,[(289,503)(289,381)(51,381)(51,258)])
}
Add(Edit,9844879,203,623)
{
Left=200
Top=620
Width=340
}
END_SDK
Add(MainForm,16520918,7,7)
{
Width=1281
Height=942
link(onCreate,5402344:doEvent1,[(75,27)(75,20)])
}
Add(Hub,5402344,112,14)
{
link(onEvent1,3375844:doWork1,[])
link(onEvent2,3375844:doWork2,[])
}

Спасибо
карма: 0

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