Советы FAQ Статьи для Borland Delphi.

Пишите. Будет опубликован Ваш совет и e-mail.

Можете присылать любые вопросы которые имеют отношение к программированию и Delphi, они будут опубликованы на этой странице.

Справочник по Windows API + Сборник вопросов и ответов по Delphi с удобной системой поиска. Скачать.

Можете посмотреть в разделе Download различные справочники.
CGI скрипты на Delphi скачать (92,88KB)
WinInet API - на англ. скачать (179,09KB)

• Оптимизированное создание TBitmap с определённым цветом фона.

• Блокировка заставки и спящего режима монитора в Windows NT(2000,XP).

• Перемещение окна мышкой не за заголовок.

Оптимизированное создание TBitmap с определённым цветом фона.

Обычно так-
Var bitmap:TBitmap;
...
begin
 with Bitmap do
  begin
   bitmap:=TBitmap.Create;
   Width  :=800;
   Height :=600;
   Canvas.Brush.Color:=clRed;
   Canvas.FillRect(Canvas.ClipRect);
   Free;
  end;

а можно и вот так-
Var bitmap:TBitmap;
...
begin
 with Bitmap do
  begin
   bitmap:=TBitmap.Create;
   Canvas.Brush.Color:=clRed;
   Width  :=800;
   Height :=600;
   Free;
  end;

Итог: при выполнении алгоритмов на Celeron 950 1000 раз - первый выполняется 19 секунд, второй 11 секунд. Немного короче и быстрей.

Блокировка заставки и спящего режима монитора в Windows NT(2000,XP).

Выполняем например каждые десять секунд. Это типа пользователю делать нечего и он как бы жмёт на клавиатуру каждые десять секунд.

keybd_event(0,0,0,0);
keybd_event(0,0,KEYEVENTF_KEYUP,0);

Итог: монитор не отключается, заставка не запускается.

Перемещение окна мышкой не за заголовок.

Допустим имеется форма UserForm, вставьте в обработчик OnMouseMove текст:

procedure TUserForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (ssLeft in shift) then
 begin
  ReleaseCapture;
  UserForm.Perform(wm_syscommand,$f012,0);
 end;
end;

Итог: культурно и ничему не мешает.