Демонстрация перехода к указанной записи через задание номера записи.
function TBDEDirect.GoToRecord(RecNo: LongInt): Boolean; var RecCount: LongInt; Bookmark: TBookmark; Res: DBIResult; Read the rest of this entry »
Если свойство BorderStyle установленно в значение bsSizeable, то размер
формы можно уменьшать или увеличивать. Иногда, чтобы показывать все необходимые
элементы на форме, необходимо установить минимальные размеры формы? Следующая
процедура позволяет ограничить размеры формы.
Один из эффективных способов организации глобальных переменных – создать
отдельный Unit и в Interface-части объявить все необходимые переменные
(и, естественно, константы ежели таковые имеются). Если теперь в других
модулях записать этот Unit в uses раздел, то все глобальные переменные
можно использовать в рамках целого проекта (или проектов).
В следующем примере показано как можно передвигать форму если пользователь
“захватил” Client-пространство. Наиболее простое решение – “обмануть” Windows
и Client-пространство выдать за заголовок окна.
unit DragMain; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCrtls; Read the rest of this entry »
OnCreate OnShow OnPaint OnActivate OnResize OnPaint
Это может быть важно, например, для того, чтобы координировать некоторые
акции по управлению положением формы и т.п.