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

Как перейти к указанной записи в БД?

Демонстрация перехода к указанной записи через задание номера записи.

function TBDEDirect.GoToRecord(RecNo: LongInt): Boolean;
var
  RecCount: LongInt;
  Bookmark: TBookmark;
  Res: DBIResult; Прочитать остальную часть записи »

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

Если свойство BorderStyle установленно в значение bsSizeable, то размер
формы можно уменьшать или увеличивать. Иногда, чтобы показывать все необходимые
элементы на форме, необходимо установить минимальные размеры формы? Следующая
процедура позволяет ограничить размеры формы.

type
  TForm1 = class(TForm)
    procedure wmGetMinMaxInfo(var Msg : TMessage); message wm_GetMinMaxInfo;

procedure TForm1.wmGetMinMaxInfo(var Msg : TMessage); 

begin
  PMinMaxInfo(Msg.lParam)^.ptMinTrackSize.X := 600;
  PMinMaxInfo(Msg.lParam)^.ptMinTrackSize.Y := 350;
end;

Как эффективно организовать объявление глобальных переменных?

Один из эффективных способов организации глобальных переменных – создать
отдельный Unit и в Interface-части объявить все необходимые переменные
(и, естественно, константы ежели таковые имеются). Если теперь в других
модулях записать этот Unit в uses раздел, то все глобальные переменные
можно использовать в рамках целого проекта (или проектов).

Как сделать возможным передвижение формы, если пользователь щелкнул
в форму вне пространства заголовка?

В следующем примере показано как можно передвигать форму если пользователь
“захватил” Client-пространство. Наиболее простое решение – “обмануть” Windows
и Client-пространство выдать за заголовок окна.

unit DragMain;
interface

uses

  SysUtils, WinTypes, WinProcs,  Messages,

  Classes, Graphics, Controls, Forms, Dialogs, StdCrtls; Прочитать остальную часть записи »

Порядок, в котором обрабатываются события при загрузке формы

    OnCreate
    OnShow
    OnPaint
    OnActivate
    OnResize
    OnPaint

Это может быть важно, например, для того, чтобы координировать некоторые
акции по управлению положением формы и т.п.