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

Вопросы и ответы. Программирование в Delphi. - №2


Информационный Канал Subscribe.Ru


Вопросы и ответы. Программирование в Delphi.

Здравствуйте, уважаемые подписчики. Перед Вами 2 номер рассылки

Задать вопрос в рассылку Здесь или по адресу vmftem@mail.ru.

Как вывести диалог выбора каталога?

SelectDirectory, rxLib: TDirectoryEdit.
Моя программа довольно долго делает какую-то полезную работу, типа чтения дерева каталогов или обильных вычислений, и в этот момент почти не работают остальные программы. Как разрешить им это делать?

Application.ProcessMessages.

Если вы хотите отдавать timeslices в нитях, пользуйтесь Sleep(0); это отдаст остаток слайса системе.

(Win16) Если вы хотите разрешить отработку сообщений другим
программам, но не вашей, то лучше пользоваться Yield().
Как сделать так, чтобы при щелчке по кнопке или по TLabel запускался, например, браузер с сайтом программы или почтовая программа с определенным адресом получателя?

uses ShellApi;

{ ... }

ShellExecute("http://www.company.com", ... );
ShellExecute("mailto:author@somewhere.net", ...);
Как мне запрограммировать непрямоугольную форму, например, как у Norton CrashGuard, в форме щита?

SetWindowRgn() (Win32).

Как использовать свои курсоры в программе?

{$R CURSORS.RES}

const
crZoomIn = 1;
crZoomOut = 2;

Screen.Cursors[crZoomIn] := LoadCursor(hInstance, 'CURSOR_ZOOMIN');
Screen.Cursors[crZoomOut] := LoadCursor(hInstance, 'CURSOR_ZOOMOUT');

С вашей программой должен быть слинкован файл ресурсов, содержащий
соответствующие курсоры.


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное