поиск по форме

← →
nyron © (2006-03-27 08:45) [0]

Добрый день. Подскажите пожалуйста как можно сделать так чтобы поиск на форме происходил по заданному слову и как можно связать edit с button, чтобы только определенная кнопка была связана с определенным edit?

← →
balepa © (2006-03-27 09:00) [1]

Edit с Button связывает обращение к Edit"у из Button"a

> Подскажите пожалуйста как можно сделать так чтобы поиск
> на форме происходил по заданному слову

Че тебе искать надо ? Если текст в Edit"ах то пробегайся по всем Edit"am
for i:= 0 to Form1.ComponentCount-1 do if (Form1.Components[i] is TEdit) then ShowMessage("111");

← →
balepa © (2006-03-27 09:21) [2]

> balepa © (27.03.06 09:00) [1]
> Если текст в Edit"ах то пробегайся по всем Edit"am
т.е. по компонентам на форме

← →
nyron © (2006-03-27 09:55) [3]

простите, че то у меня не получается. и я не могу понять как сделать так, чтобы допустим я сделал несколько edit"ов и несколько кнопок, но чтобы не руками прописывать, потому что если будет много эдитов и кнопок, то каждый раз прописывать что к этому эдиту эта кнопка будет напряжно. или т.е. я так понимаю можно же сделать автоматическое создание edit и button, а вот как сделать так чтобы они автоматически связывались друг с другом? или это не просто сделать?

← →
nyron © (2006-03-27 10:05) [4]

простите, поспешил, искать по edit получилось, но вот все е как на счет автоматической связки edit с button?

← →
nyron © (2006-03-27 10:09) [5]

ну т.е. как сделать так, что как только в edit нашлось похожее слово, то вместо сообщения выполнялось действие по нажатию кнопки которая принадлежит этому edit

← →
balepa © (2006-03-27 10:40) [6]

Используй свойство Tag у обоих компонентов

← →
balepa © (2006-03-27 10:49) [7]

или создай свой компонент с кнопкой и эдитом

← →
nyron © (2006-03-27 10:52) [8]

простите а это как? я просто не знаю

← →
balepa © (2006-03-27 11:22) [9]

Вопрос сформулируй попонятнее а то нифига понять не могу че сделать то надо?

Editam и buttonam(которые надо "связать") присваевай одинаковый номер в Tag

for i:= 0 to Form1.ComponentCount-1 do if (Form1.Components[i] is TEdit) then if TEdit(Form1.Components[i]).Tag = TButton(Sender).Tag then begin TEdit(Form1.Components[i]).Text:= "ddd"; //ну здесь выполняй свое действие end;

А действие которое должно выполняться оформи ввиде процедуры или помести в ActionList и че я тут накалякал тоже можно в ActionList(мож с небольшими изменениями).
А вообще опиши проблему попонятнее может еще кто че подскажет, а то я смотрю кроме меня никто даже попытатся понять не хочет че ты тут написал.

← →
nyron © (2006-03-27 13:01) [10]

в итоге нужно чтобы на одной форме было 3 компонента edit с названиями (флаг, карта, страна) и три кнопки которые принадлежат к этим компонентам. а на другой форме был один компонент с названием "страна" и одна кнопка, по нажатию которой происходил поиск по всем компонентам первой формы, но чтоб ы он еще искал значение этого компонента. а связывать автоматически кнопки для того, чтобы после того как это было найдено, но автоматом нажималась кнопка которая принадлежит к компоненту под названием "страна" (ну вот так примерно)

← →
nyron © (2006-03-27 13:11) [11]

ну т.е. на первой форме происходил поиск во всех компонентах слова такого же как и на второй форме т.е. "страна". соответственно в трех компонентах только в одном это слово, и соответственно происходило выполнение действия кнопки которая принадлежит к этому компоненту. по твоей подсказки сообщение выдается столько раз, сколько компонентов edit, а как правильно написать так, чтобы сообщение выскакивало только в том случае, если в этом edit есть какое-то слово, которое есть на другой совершенно форме? чтобы не просто по edit"am пробегаться, а еще и в них искать значение чтоли

> nyron © (27.03.06 13:11) [11]
> ...чтобы не просто по edit"am пробегаться, а еще и в них искать
> значение чтоли

см. balepa © (27.03.06 11:22) [9]
Опять я Нихрена непонял

ну вот ты написал
for i:= 0 to Form1.ComponentCount-1 do
if (Form1.Components[i] is TEdit) then
ShowMessage("111");
т.е. пробегая по всем edit"ам выдается столько сообщений, сколько существует edit"ов. а как искать определенный текст в этих edit?

Выше посмотреть стул не позволяет ?
Для тех кто не умеет пользоваться Скролбарами в ie
for i:= 0 to Form1.ComponentCount-1 do if (Form1.Components[i] is TEdit) then if TEdit(Form1.Components[i]).Tag = TButton(Sender).Tag then begin TEdit(Form1.Components[i]).Text:= "ddd"; end;

nyron © (27.03.06 14:42) [13]
for i:= 0 to Form1.ComponentCount-1 do
if ((Form1.Components[i] is TEdit) and(TEdit(Form1.Components[i]).Text = "КНОПКА")) then Button1.Проц.Нажатия;

if ((Form1.Components[i] is TEdit) and(TEdit(Form1.Components[i]).Text = "КНОПКА")) во, вот это нужно, спасибо большое

поиск по форме Найти похожие ветки