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

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 03.06.04 09:17 Лучшее из нашего FAQ |x| Иногда всплывающее меню моего приложения system tray не исчезает когда оно теряет фокус. Как закрыть его? При показе всплывающего меню установите foreground window, затем пошлите сообщение WM_NULL после показа меню. procedure TForm1.WndProc( var Msg : TMessage); var p : TPoint; begin case Msg.Msg of WM_USER + 1: case Msg.lParam of WM_RBUTTONDOWN: begin SetForegroundWi...

2004-06-03 09:15:31 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 02.06.04 09:17 Лучшее из нашего FAQ |x| Иерархические структуры. Supervisor (13.04.01 17:20) Может у кого есть примеры или идеи как хранить иерархические структуры в базе данных. К примеру некую виртуальную файловую систему (типа вложенных папок. Желательно чтоб использовался язык триггеров и хранимых процедур. Структура из базы должна загружаться в компонент типа TTreeView Заранее благодарен! kayaker (13.0...

2004-06-02 09:16:40 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 01.06.04 09:17 Лучшее из нашего FAQ |x| Функции и процедуры для финансовых вычислений. DoubleDecliningBalance Вычисляет амортизационные отчисления на определенном этапе. FutureValue Вычисляет значение вклада через определенный период времени. InterestPayment Вычисляет процентную ставку кредита. InterestRate Вычисляет процентную ставку инвестиций. InternalRateOfReturn Вычисляет внутреннюю ставку дохода от ин...

2004-06-01 09:15:37 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 31.05.04 09:17 Лучшее из нашего FAQ |x| Как поместить картинку из базы данных, например MsSQL, в компонент TIMAGE ? 1) Предполагается, что поле BLOB (например, Pict) 2) в запросе Query.SQL пишется что-то вроде 'select Pict from sometable where somefield=somevalue' 3) запрос открывается 4) делается "присваивание: Image1.Picture.Assing(TBlobField(Query.FieldByName'Pict) или, если известно, что эта картинка - ...

2004-05-31 09:15:35 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 30.05.04 09:17 Лучшее из нашего FAQ |x| Как получить число и список всех компонентов, расположенных на TNoteBook? В примере список выводится на Listbox. Пример: procedure TForm1.Button1Click(Sender: TObject); var n: integer; p: integer; begin ListBox1.Clear; with Notebook1 do begin for n = 0 to ControlCount - 1 do begin with TPage(Controls[n) do begin ListBox1.Items.Add'Notebook Page: ' + TPage(Notebook1.Co...

2004-05-30 09:15:12 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 29.05.04 09:17 Лучшее из нашего FAQ |x| Как отключить показ кнопки программы в TaskBar и по Alt-Tab и в Ctrl-Alt-Del Внеся изменения (выделенные цветом) в свой проект вы получите приложение, которое не видно в TaskBar и на него нельзя переключиться по Alt-Tab program Project1; uses Forms, Windows, Unit1 in 'Unit1.pas' {Form1}; $R .RES} var ExtendedStyle : integer; begin Application.Initialize; ExtendedStyle...

2004-05-29 09:15:13 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 28.05.04 09:17 Лучшее из нашего FAQ |x| Как узнать размеры TComboBox с показанным выпадающим списком до показа списка? На событии FormShow пошлите сообщение CB_SHOWDROPDOWN в ComboBox дважды - один раз чтобы заставить список выпасть, второй - чтобы убрать его. Затем пошлите сообщение CB_GETDROPPEDCONTROLRECT, передав в качестве параметра адрес TRect. TRect будет содержать экранные кординаты прямоугольника о...

2004-05-28 09:15:14 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 27.05.04 09:17 Лучшее из нашего FAQ |x| Быстрый доступ к нужной записи в таблице Paradox Для быстрого доступа к нужной записи в таблице paradox необхдимо присвоить номер записи Table.RecNo. var NeedNumber: Integer; . NeedNumber = Table.RecNo; {сохранение номера нужной записи} . {код меняющий номе записи} . Table.RecNo = NeedNumber; {востановление номера нужной записи} > Прислать свои комментарии Обсуждается...

2004-05-27 09:15:42 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 26.05.04 09:17 Лучшее из нашего FAQ |x| Как поместить картинку из базы данных, например MsSQL, в компонент TIMAGE ? 1) Предполагается, что поле BLOB (например, Pict) 2) в запросе Query.SQL пишется что-то вроде 'select Pict from sometable where somefield=somevalue' 3) запрос открывается 4) делается "присваивание: Image1.Picture.Assing(TBlobField(Query.FieldByName'Pict) или, если известно, что эта картинка - ...

2004-05-26 09:15:38 + Комментировать

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 25.05.04 09:17 Лучшее из нашего FAQ |x| Как получить список пользователей BDE Это возможно для Paradox procedure BDEGetPDXUserList(AList: TStrings); var hCur: hDBICur; UDesc: USERDesc; begin AList.Clear; Check(DBIOpenUserList(hCur); try while DBIGetNextRecord(hCur, dbiNOLOCK, @UDesc,nil) DBIERR_EOF do begin AList.Add(StrPas(UDesc.szUserName); end ; finally DBICloseCursor(hCur); end ; end ; > Прислать свои к...

2004-05-25 09:16:51 + Комментировать