Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Ноябрь 2007   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

Народное голосование ПРЕМИИ РУНЕТА-2007!
Голосуем за RusFAQ.ru >>

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 981
от 17.11.2007, 16:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 456, Экспертов: 59
В номере:Вопросов: 2, Ответов: 2

Вопрос № 109042: Здравствуйте, УВАЖАЕМЫЕ ЭКСПЕРТЫ! Подскажите, ПОЖАЛУЙСТА, какие-нибудь ресурсы в сети, где есть материал, который максимально раскрывает все возможности компонента Button. Мне надо написать что-то вроде доклада об одном только Button, а в книжках мал...
Вопрос № 109061: Добрый день! У меня вопросец ... Подскажите как сделать поиск по строчно в String Grid Хотелось бы что-то наподобие поиска в 1С(вводишь слово а искомая строка сразу подсвечивается) Заранее спасибо!...

Вопрос № 109.042
Здравствуйте, УВАЖАЕМЫЕ ЭКСПЕРТЫ! Подскажите, ПОЖАЛУЙСТА, какие-нибудь ресурсы в сети, где есть материал, который максимально раскрывает все возможности компонента Button. Мне надо написать что-то вроде доклада об одном только Button, а в книжках мало материала об этом компоненте. Спасибо!!!
Отправлен: 12.11.2007, 11:48
Вопрос задала: Алена (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 5)
Отвечает: Degtyarev Anton
Здравствуйте, Алена!
/www.delphibasics.ru - неплохо описаны все компоненты
http://www.sources.ru/wiki/doku.php?id=delphi:buttons
http://www.beluch.ru/progr/100comp/5_2.htm - Управляющие кнопки Button и BitBtn
---------
Сколько волка не корми, а слон всё равно толще
Ответ отправил: Degtyarev Anton (статус: 2-ой класс)
Ответ отправлен: 12.11.2007, 12:10
Оценка за ответ: 5

Вопрос № 109.061
Добрый день!
У меня вопросец ...
Подскажите как сделать поиск по строчно в String Grid
Хотелось бы что-то наподобие поиска в 1С(вводишь слово а искомая строка сразу подсвечивается)

Заранее спасибо!
Отправлен: 12.11.2007, 14:11
Вопрос задал: Грек А.В. (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 5)
Отвечает: Degtyarev Anton
Здравствуйте, Грек А.В.!
Могу предложить немного другой вариант вы вводите то что ищете а при нажатии на кнопку найти производится поиск.
В низу формы положите элемент Tpanel + Tedit + 2 кнопки (найти, отмена)

У Grid выберети собтии при нажатии кнопки

там напишите - это позволит вводить текст в поле

Panel.Visible := True;
Find.SetFocus;
Find.SelText := key;
end;

потом создайте событие при нажатии кнопки "найти"

Var
I : Integer;
S : String;
isOK : Boolean;
List : TList - переменная которая содержит весь список вашего поля
begin
isOk := False;
S := AnsiUpperCase(Trim(WhatFind.Text));
For I := Grid.Row To List.Count - 1 Do Begin
isOK := Pos(S, AnsiUpperCase(List[I].Name) = 1;
If isOK Then Break;
End;
If Not isOK Then
For I := 0 To Grid.Row - 1 Do Begin
If I > List.Count - 1 Then Break;
isOK := Pos(S, AnsiUpperCase(List[I].Name) = 1;
If isOK Then Break;
End;
If isOK Then Begin
Grid.Row := I + 1;
DoSelectCell(I)
End Else ShowMessage('ничего не найдено');
End;

вот так вроде будет работать. Возможны варианты в строке isOK := Pos(S, AnsiUpperCase(List[I].Name) = 1;
но в любом случае алгоритм такой.


---------
Сколько волка не корми, а слон всё равно толще
Ответ отправил: Degtyarev Anton (статус: 2-ой класс)
Ответ отправлен: 12.11.2007, 16:03

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.62.1 от 14.11.2007 		Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное