Мой DELPHI – Программирование

Как выводить форму в центр экрана?

Часто встречающийся вопрос начинающего программиста. Чтобы вывести форму
в центре экрана необходимо (в самом простом случае) изменить свойство
формы Position. Значение должно быть установленно в poScreenCenter. Причем
это можно делать как в Object Inspector, так и во время работы программы.

Как узнать, находится ли дискета в дисководе?

type
  TDriveState(DS_NO_DISK, DS_UNFORMATTED_DISK,
    DS_EMPTY_DISK, DS_DISK_WITH_FILES);

function DriveState(DrvLetter: Char): TDriveState;

var

  Mask: String[6];

  SearchRec: TSearchRec;

  oldMode: Cardinal;

  ReturnCode: Integer; Прочитать остальную часть записи »

Как проверять корректность доступа к базе данных?

Следующая функция проверяет доступ к базе данных и выдает возможные причины,
если доступ не удается осуществить. Функция возвращает значение True в случае
успешной операции и False в противном случае.

function TBDEDirect.CheckDatabase: Boolean;

var

  DS: TDataSource; Прочитать остальную часть записи »

Как выяснить дату последнего изменения файла?

Для выяснения даты последнего изменения файла можно воспользоваться следующей
функцией:

function GetFileDate(FileName: string): string;

var
  FHandle: Integer;

begin
  FHandle := FileOpen(FileName, 0);
  try
    Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
  finally
    FileClose(FHandle);
  end;
end;

Как создать и использовать новую форму курсора?

Для этого необходимо создать новый курсор(ы) в подходящем для этого редакторе
ресурсов (например борландовский Resource Workshop). При этом надо обратить
внимание на то что имена в редакторе ресурсов (особенно в том, который поставляется
с Delphi) надо писать заглавными буквами. После этого “перед внутренним
употреблением” (лучше всего в процедуре обработки события OnCreate главной
формы) необходимо загрузить курсор(ы) из res-файла как указано ниже:

{$I CURSOR.RES}

Screen.Cursors[1] := LoadCursor(hInstance, 'CURSOR_1');
Button1.Cursor := 1;

Обратите внимание на то, что системные курсоры в Screen.Cursors начинаются
с нуля и идут в минусовом направлении. Поэтому при создании новых курсоров
лучше выбирать положительные числа (лучше не слишком большие :-)). Прочитать остальную часть записи »