| ← Август 2003 → | ||||||
|
1
|
3
|
|||||
|---|---|---|---|---|---|---|
|
5
|
7
|
8
|
10
|
|||
|
11
|
12
|
15
|
17
|
|||
|
19
|
21
|
23
|
||||
|
25
|
26
|
27
|
29
|
31
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RusFAQ.ru: Программирование на Delphi
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на C++ Builder / Delphi
Выпуск № 200
от 12.08.2003, 22:30
| Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва |
О рассылке: Задано вопросов: 840 Отправлено ответов: 1535 Активность: 182.7 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Артём Шегеда Статус: Профессиональный Общий рейтинг: 116.84 URL: Пристанище неодинокого программиста [Подробней >>] |
ART_43 Статус: Доверительный Общий рейтинг: 124.69 [Подробней >>] |
Дима Мусиенко Статус: Опытный Общий рейтинг: 109.47 [Подробней >>] |
| Alexander Статус: Доверительный Общий рейтинг: 114.84 [Подробней >>] |
Bob Johnson Статус: Профессиональный Общий рейтинг: 151.65 URL: Программирование [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 826. Здравствуйте мастера!У меня такая проблема:есть компонент TPageControl (несколько вкладок) у каждой ... (ответов: 1)
Вопрос № 828. Здравствуйте, уважаемые Эксперты. Вопрос: Как в DBGrid обрабатывать колесо прокрутки? Заранее благод... (ответов: 1)
Вопрос № 829. Необходимо написать драйвер для USB устройства! Подскажите как это сделать?... (ответов: 1)
Вопрос № 832. Приветствую затоков!! У меня такая проблема: я хочу дать із под Delphi команду на исполнение, смотре... (ответов: 3)
Вопрос № 833. Приветствую затоков!! У меня такая проблема: я хочу дать із под Delphi команду на исполнение, смотре... (ответов: 1)
Вопросов: 5, ответов: 7
| Вопрос № 826 |
Здравствуйте мастера!У меня такая проблема:есть компонент TPageControl (несколько вкладок) у каждой вкладки(TabSheet1,TabSheet2...)есть свой DBGrid1,DBGrid2...и свой TTable1,TTable2...,а также свой DataSeurse1,DataSeurse2...мне надо сделать кнопочку BitBtn, чтобы запись при её нажати добовлялась в активную таблицу(вкладку),но почему то запись добовляется во все вкладки,может это из-за того, что у меня во всех TTable-ах одинаковое TableName(имя таблицы)?
Пишу так:
procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
case PageControl1.ActivPageIndex of
1:IF Table1.Locate(StToInt(edit1.Text),[loCaseInsensitive])=true then
MessageDlg('совпадение',mtInformation,[mbok],0)else
begin
Table1.Insert;
Table1.FieldByName('Год').AsInteger:=strtoint(Edit1.text);
Table1.FieldByName('Автор').AsString:=Edit2.Text;
Table1.FieldByName('Название литературы').AsString:=edit3.Text;
Table1.FieldByName('Источник').AsString:=edit4.Text;
Table1.FieldByName('Примечание').AsString:=Edit5.text;
Table1.Post;
Table1.Close;
Table1.Open;
end;
ит.д.с Table2.....
Я в делфи ещё новичёк,омогите пожайлуста.Niky
Вопрос отправлен: 06.08.2003, 18:24
Отправитель: николай (chuprin_kolya@rambler.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает Артём Шегеда
Здравствуйте, николай!
Конечно же! Дело в том, что компонента TTable при открытии/закрытии/перемещении всем своим TDataSource выдаёт оповещение об изменении. В конце концов, это логично - веди все сетки (TDataGrid's) просматривают одну и ту же таблицу, значит, видеть должны однго и то же.
Ответ отправлен: 06.08.2003, 18:52
Отправитель: Артём Шегеда
| Вопрос № 828 |
Здравствуйте, уважаемые Эксперты.
Вопрос: Как в DBGrid обрабатывать колесо прокрутки?
Заранее благодарен.
Вопрос отправлен: 07.08.2003, 13:41
Отправитель: VDR
[Следующий вопрос >>] [Список вопросов]
Отвечает ART_43
Приветствую Вас, VDR!
OnMouseWheel, OnMouseWheelDown, OnMouseWheelUp
Ответ отправлен: 08.08.2003, 09:55
Отправитель: ART_43
| Вопрос № 829 |
Необходимо написать драйвер для USB устройства! Подскажите как это сделать?
Приложение:
Вопрос отправлен: 08.08.2003, 15:01
Отправитель: Маслов Андрей (andrey@peresvetmed.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает Артём Шегеда
Приветствую Вас, Маслов Андрей!
www.USB.org - Спецификация интерфейса. Тебе нужна глава 9. А дальше - по сюжету
Ответ отправлен: 08.08.2003, 16:03
Отправитель: Артём Шегеда
| Вопрос № 832 |
Приветствую затоков!!
У меня такая проблема: я хочу дать із под Delphi команду на исполнение, смотрел в прилагаюцейся справке WIN32 нашол функлыю ExecProgram но она какаета кривая, может уто у меня руки такие?
В любом случаи вышлете мне кусок програмы с использыванием командной строки
p.s. у меня Delphi 7
Вопрос отправлен: 09.08.2003, 22:29
Отправитель: ol
[Следующий вопрос >>] [Список вопросов]
Отвечает Дима Мусиенко
Здравствуйте, ol!
Ты говоришь - "команду на исполнение", всё верно ExecProgram как раз для этого, но есть ещё много других: WinExec, ShellExecute, CreateProcess. А с командной строкой какие проблемы, средствами Дельфи я не помню(уж больно всё скрыто в Дельфях), но GetCommandLine возвращает как раз её.
Ответ отправлен: 11.08.2003, 10:07
Отправитель: Дима Мусиенко
Отвечает ART_43
Приветствую Вас, ol!
procedure Exec;
var eCode : integer;
dDir, Cmd : string;
begin
Cmd := 'http://www.art-43.narod.ru' + #0;
dDir := ExtractFilePath(Application.EXEName);
if dDir[length(dDir)] <> '' then dDir := dDir + '';
dDir := dDir + #0;
eCode := ShellExecute(Application.Handle, nil, @Msg[1], nil, @dDir[1], SW_SHOW);
if eCode < 32
then ShowMessage(format('No http client association -- error code %d', [eCode]));
end;
Ответ отправлен: 11.08.2003, 12:01
Отправитель: ART_43
Отвечает Alexander
Доброе время суток, ol!Моя расылочка http://subscribe.ru/catalog/comp.soft.othos.yourcomp.Подпишись.
Ответ отправлен: 09.08.2003, 23:54
Отправитель: Alexander
| Вопрос № 833 |
Приветствую затоков!!
У меня такая проблема: я хочу дать із под Delphi команду на исполнение, смотрел в прилагаюцейся справке WIN32 нашол функлыю ExecProgram но она какаета кривая, может єто у меня руки такие?
В любом случаи вышлете мне кусок програмы с использыванием командной строки
p.s. у меня Delphi 7
Вопрос отправлен: 09.08.2003, 22:29
Отправитель: ol
[Следующий вопрос >>] [Список вопросов]
Отвечает Bob Johnson
Доброе время суток, ol!
Можно использовать WinExec или CreateProcess. Но для выполнения команды надо будет запускать не эту команду, а command.com (для 9х) или cmd.exe (для НТ) с параметром /с:
"command.com /cdir", например.
Узнать, что надо запускать можно из переменной окружения ComSpec.
* EMan1.4: ---===*** Die young - live free ***===---
Ответ отправлен: 09.08.2003, 22:41
Отправитель: Bob Johnson
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (37) C / C++ (29) Perl (3) Builder / Delphi (22) Pascal (26) Basic / VBA (12) Java / JavaScript (9) PHP (7) Криптография (10) WinAPI (18) |
Пользователю Windows 95/98/Me (47) Windows NT/2000/XP (56) "Железо" (44) Поиск информации (27) |
Администратору Windows NT/2000/XP (29) Linux / Unix (13) |
Юристу Гражданское право (10) Семейное право (6) Трудовое право (7) КоАП (5) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
