Отправляет 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

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

Вышел очередной дайджест форумов. Скачать можно здесь
Новые компоненты   |x|
  • Globus VCL Extention Library v.2.77 (597kb) (23.05.02 00:35)
    Набор из 50 компонентов на Delphi: glBevel, glLabel, glEdit, glCBox, glTView, glFlyTxt, glPage, glTab, glHint, glCapt, glPrgrs, glHShape, glJump, glDigits, glGrBox, glImage, glShadow, glLBox, glALBox, glSBox, glGBtn, glRLabel, glBitBtn, glRuler, glSGrid,glProcs, glSysInf, glSplit, glMSlots, glExceptionHandler, glSpeedButton, glSingleInstance, glHelpPanel, glStringContainer, glSysRequirements, glSmallFontsDefence, glWizardHeader, glXMLSerializer и т.д.
    С исходными текстами
    Компонента из раздела: Component Packs: Multi-purpose Huge
    Источник: www.torry.net   Автор: Andrey Chudin http://cpr.biblio-globus.ru
    -= · VCL · Samples · =- [Перевел: Mark S. Zheleznyak]
  • RichView XML 1.1.2 (64Kb) (23.05.02 00:34)
    Дополнение к RichView 1.6.7+ (можно загрузить с www.trichview.com) для сохранения XML-файлов. Содержит собственный XML DTD для сохранения всего контента, включая bullets, hotspots и т.п.
    С исходными текстами
    Источник: www.delphipages.com   Автор: Jiшн Banzet
    -= · VCL · Samples · =- [Перевел: Mark S. Zheleznyak]
  • Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Кое-что из нашей кладовки   |x|
Лучшее из нашего FAQ   |x|
Как сообщить всем формам моего приложения (в том числе и не видимым в данный момент) об изминении каких-то глобальных значений?
Один из способов - создать пользовательское сообщение и использовать метод preform чтобы разослать его всем формам из массива Screen.Forms.
Пример:

{Code for Unit1}

const
    UM_MyGlobalMessage = WM_USER + 1;

type
    TForm1 = class(TForm)
        Label1: TLabel;
        Button1: TButton;
        procedure FormShow(Sender: TObject);
        procedure Button1Click(Sender: TObject);
   private    
        {Private declarations}
        procedure UMMyGlobalMessage(var AMessage: TMessage); message
        UM_MyGlobalMessage;
    public
        {Public
declarations}
end;

var
    Form1: TForm1;

implementation

{$R *.DFM}

uses Unit2;

procedure TForm1.FormShow(Sender: TObject);
begin
    Form2.Show;
end;

procedure TForm1.UMMyGlobalMessage(var AMessage: TMessage);
begin
    Label1.Left := AMessage.WParam;
    Label1.Top  := AMessage.LParam;
    Form1.Caption := 'Got It!';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    f: integer;
begin
    for f := 0 to Screen.FormCount - 1 do
    Screen.Forms[f].Perform(UM_MyGlobalMessage, 42, 42);
end;

{Code for Unit2}

const
    UM_MyGlobalMessage = WM_USER + 1;
type

   TForm2 = class(TForm)
        Label1: TLabel;
    private
        {Private declarations}
        procedure UMMyGlobalMessage(var AMessage: TMessage);
        message UM_MyGlobalMessage;
    public
        {Public declarations}
end;

var
    Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.UMMyGlobalMessage(var AMessage: TMessage);
begin
    Label1.Left := AMessage.WParam;
    Label1.Top  := AMessage.LParam;
    Form2.Caption := 'Got It!';
end;


Источник: Дельфи. Вокруг да около.

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

Советы по программированию в Дельфи

7) Сортировка ListView в режиме vsReport при нажатии на заголовок колонки

function CustomDateSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
result:=0;
if strtodatetime(item1.SubItems[0])>strtodatetime(item2.SubItems[0]) then
 Result :=1 else
if strtodatetime(item1.SubItems[0])<strtodatetime(item2.SubItems[0]) then
 Result :=-1;
end;

function CustomNameSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
Result := CompareText(Item1.Caption,Item2.Caption);
end;

procedure TForm1.GetFilesClick(Sender: TObject);
var sr:tsearchrec;
Item: TListItem;
begin
if FindFirst('e:\*.*',faAnyFile, sr) = 0 then repeat
     if (sr.Attr and faDirectory) <> sr.Attr then
     begin
       item:=lv1.items.add;
       item.Caption:=sr.name;
       Item.SubItems.Add(datetimetostr(filedatetodatetime(sr.time)));
     end;
until FindNext(sr) <> 0;
FindClose(sr);
end;

procedure TForm1.lv1ColumnClick(Sender: TObject; Column: TListColumn);
begin
if column =lv1.columns[0] then
 LV1.CustomSort(@CustomNameSortProc, 0)
 else  LV1.CustomSort(@CustomDateSortProc, 0)
end;

Автор: Б. Новгородов (MBo)

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Ограничение количества одновременно запущенных экземпляров приложения
Обсуждение данной темы ведется, начиная с появления первых 32-х разрядных версий Windows. Казалось бы, проблема давно уже должна быть окончательно решена, но количество вопросов в конференциях и форумах не уменьшается, хотя из книги в книгу, из FAQ'а в FAQ кочуют одни и те же варианты решения. Но не все так очевидно и просто...
Новинки книжного рынка   |x|
Delphi 5 для профессионалов
Эта книга поможет вам овладеть программированием в Delphi, включая язык Object Pascal, компоненты Delphi (как работу с существующими компонентами, так и разработку ваших собственных), поддержку баз данных и приложений клиент/сервер, базовые элементы программирования в среде Windows и разработку COM-приложений, а также Web-программирование. Для чтения этой книги нет необходимости в глубоких знаниях какой-либо из этих тем, но что вам действительно понадобится — это основы программирования на Паскале.
Автор: М. Кэнту
Другие сайты о DELPHI   |x|
Программирование на Delphi. Обмен опытом.
Эта страничка содержит информацию, накопленную в процессе разработки приложений на языке Delphi 1-4 и содержит разнообразную информацию, которая может оказаться полезной программистам различного ...
» Оценка сайта: 4
Опрос населения :)
К какой возрастной категории Вы принадлежите ?
»»» меньше 16
»»» от 17 до 20
»»» от 21 до 23
»»» от 24 до 26
»»» от 27 до 30
»»» от 30 до 35
»»» от 35 до 40
»»» от 40 до 44
»»» больше 45
Журнал "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=7211

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

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