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

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

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Август 2002   →
 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
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

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


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 20.08.02 09:04

Кое-что из нашей кладовки   |x|
  • MoveIT1.0b TGod.Lynx Lynx_2002_mail@mail.ru   (19.08.02 18:21)
    Программа для пакетного переименовывания файлов по шаблону...
    »»» Скачать: исходные тексты (175кб)
  • Hunter dim- eda@arhadm.net.ru   (15.08.02 10:21)
    Програмка сидит в трее и если к вашей машинке подключились (зашли в расшаренную папочку, послали на печать) издает сигнал. Можно посмотреть с какой машины и имя пользователя, так же ведется лог-файл по дням и можно настроить горячую клавишу для вызова заставки виндов.
    После распаковки просто запустите Hunter.exe он сам пропишется в реестре для автозагрузки.
    P.s. Очень помогло отследить откуда сыплются вирусы но работает только под Win9х
    »»» Скачать: исходные тексты (218кб) демонстрационный EXE файл (218кб)
Лучшее из нашего FAQ   |x|
Как отображать ComboBox в текущей позиции курсора TMemo 


unit CBoxInMemo;

interface

uses
  Windows, Classes, Controls, Graphics, Forms, StdCtrls;

type
  TFrmCboxInMemo = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Exit(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCboxInMemo: TFrmCboxInMemo;

implementation

{$R *.DFM}

procedure TFrmCboxInMemo.Button1Click(Sender: TObject);
var
  clientPos: TPoint;
  lineHeight: Integer;
  tmpFont: TFont;
begin
  GetCaretPos(clientPos);
  {Use the
following calculation of line height only if you want your combobox
  to appea!
r below the char position you are referencing.}
  tmpFont := Canvas.Font;
  Canvas.Font := Memo1.Font;
  lineHeight := Canvas.TextHeight('Xy');
  Canvas.Font := tmpFont;
  with ComboBox1 do  begin
    {Adjustment of Top by lineHeight only necessary if combobox is to appear below line.}
    Top := clientPos.Y + Memo1.Top + lineHeight;
    Left := clientPos.X + Memo1.Left;
    Visible := true;
    SetFocus;
  end;
end;

procedure TFrmCboxInMemo.ComboBox1Exit(Sender: TObject);
begin
  ComboBox1.Visible := false;
end;

procedure TFrmCboxInMemo.ComboBox1Click(Sender: TObject);
begin
  ComboBox1.Visible := false;
end;

end.

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • Устранение мерцаний Image.
    Ув. мастера, подскажите, пожалуйста, возможно ли устранить мерцание Image`a во время рисования на нем, особенно если ...
  • Про память
    Здравствуйте. Сижу и разглядываю код функции StrAlloc - просто интересно. Не мог бы кто разъяснить мне суть следующего ...
  • Как записать CD-R / CD-RW в Delphi?
    Здравствуйте! Не могу найти решения для одной (вроде простой) задачи. Нужно записать один или несколько файлов на CD-R ...
  • Как узнать интервал между кликами дабл клика в винде?
    О завернул то... в общем надо! :o)
  • Соединение с БД Oracle
    Имя пользователя, пароль берутся из соответствующих полей NameEdit, PwdEdit формы DialogForm. При нажатии на кнопки "OK"...
  • Com port и таймер
    Помогите разобраться. Получаю из порта данные, при приходе определенных значений нужно зафиксировать время прихода(идет ...
  • Оцените обновление сайта, дезайн
    Вот я тут свой сайт обновил, просьба оценить дезайн: принимаются рекомендации и пожелания а также любая критика. <...
У нас большой выбор статей   |x|
Программирование Интернет приложений в Borland Kylix. Часть I. Создай своих демонов!
В этой статье речь пойдет о создании интернет серверов (сетевых демонов) в Linux при помощи среды разработки Kylix и входящего в нее набора компонентов Internet Direct. В качестве примера описывается разработка простого сервера протокола HTTP.
Новинки книжного рынка   |x|
Delphi 6 в подлиннике
Delphi 6 - новая версия популярной системы быстрой разработки приложений. В книге описываются инструментальные средства среды Delphi 6, приводятся основы языка программирования Object Pascal и рассматриваются компоненты, свойства, методы и события, необходимые для разработки широкого спектра программ. Особое внимание уделяется работе с базами данных. Показывается использование как локальных, так и удаленных баз данных, включая создание многоуровневых информационных систем и публикацию результатов запросов через Интернет. Благодаря большому количеству затронутых тем, подробному изложению и многочисленным примерам книга будет полезна как начинающим, так и опытным программистам.
Автор: Гофман В.
Другие сайты о DELPHI   |x|
Polaris Software
Русификация Delphi
Русские строковые ресурсы и экранные формы
> run-time в виде набора PAS-модулей для Delphi 3,4,5.
> run-time пакеты VCL Delphi 4 и 5.
> run-time пакеты ...
» Оценка сайта: 5
Опрос населения :)
Какой сайт по Delphi лучший?
»»» Королевство Дельфи
»»» Этот сайт
»»» Дельфи. Вокруг да около
»»» Другой
»»» Чем больше, тем лучше!
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
В который раз,
Устав читать о вечном,
Завариваю крепкий чай.

Афоризмы
"Совесть болит только у нравственно больных." (Артур Васильев)

Фраза дня
"По белому, белому полю я шел, проклиная весь свет. И думал: скорей бы на волю, в наш офис, где есть интернет!" //Рома Воронежский

Дурацкие законы (информация предоставлена сайтом kurilka.com)
Если вы в Техасе(США) , даже не думайте стрелять по бизонам со второго этажа отеля.
В Канзасе (США) все пешеходы, пересекающие дорогу ночью, должны носить световые отражатели.

И на закуску коротенький анекдот
- Что вы предпринимаете для защиты от вирусов?
- Выпускаем одноразовые компьютеры...

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=48134

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное