TableGrid и все что с ним связано (Page 1 of 2)

В настройках грида вы можете указать по какой колонке необходимо отсортировать данные.

pha1984
1.
К сожалению не могу открыть ваш проект, нажат на кнопку Демонстрация, ничего не происходит.
Также не ясно, что именно не получается? если данные наполняются с помощью кнопки Поиск, то в ней вы также можете указать, по какому именно полю необходимо отсортировать результат поиска.

2.  Необходимо установить свойство формы:

Code.KeyPreview := True;

в событии формы OnShow либо в самом низу скрипта между begin и end.

3. Это одно и тоже, просто для новых версий тоже самое можно написать короче

Form1.GridEmployees.sqlValue

вместо

inttostr(Form1.GridEmployees.dbitemid)

Q34PM32O54G6130

А зачем? я ведь ответил уже на вопросы )

Я вам уже ответил на этот вопрос, если мой ответ не помог, опишите более подробно, о чем идет речь.

pha1984
Вы сперва говорите про записи, затем про колонки, речь идет о сортировке записей? или о ширине колонок?

Данный код активации у меня не работает.

Для формы Code не создано событие OnClose, хотя в коде оно присутствует, возможно случайно удалили, просто пересоздайте данное событие заново.

Т.о. программа не закрывалась, а  размер колонок грида сохраняется как раз при закрытии программы.

На этом же проекте есть еше один вопрос. Надо чтобы удалилась запись из таблицы SerialNumber в том случае если запись столбца SN не совпадает с текстом License.Edit1.Text. Я хотел это сделать при закрытии формы Code, но увы не получается. Вот мой скрипт.

Procedure code_onclose
Begin
Sqlexecute ('delete * from SerialNumber where not (SN = {license.edit1.text}))');
License.close;
End;

К сожалению заблокировать функцию Windows не получиться, но вы можете скриптом запретить писать русские буквы.

procedure Form1_Edit1_OnKeyPress (Sender: string; var Key: Char);
begin
   If (Key in ['А'..'Я']) or (Key in ['а'..'я']) then Key:=#0;
end;

Ув. Дмитрий. На этом же проекте я написал этот скрипт, но увы выдает ошибку.
1. На счет меню О программе
2. На счет показа системной даты

Где ошибка?

procedure Code_OnShow (Sender: string; Action: string);
var
   MyAboutMenu: TMenuItem;
begin
    Timer := TTimer.Create(Code);
    Timer.OnTimer := @OnTimer;
    Timer.Interval := 10;
    Timer.Enabled := True;
    Code.PageControl1.ActivePageIndex:= 0;
    Code_b1_OnClick ('',false);
    Code_bA_OnClick ('',false);

   // create own about menu item
   MyAboutMenu := TMenuItem.Create (Code.MainMenu);
   MyAboutMenu.OnClick := @MenuClickAbout;
   MyAboutMenu.Caption := 'О программе';

end;

procedure MenuClickAbout (Sender: string); // click in About menu item
begin
     frmAbout.ShowModal;
end;

procedure OnTimer (Sender: TObject);
begin
    Code.Label5.Caption := FormatDateTime('c', Now);
    Code.Edit15.Text := FormatDateTime('c', Now);
    License.Hide;
    Timer.Free;
end;

Ошибка выглядит так: undeclared identifier: 'MainMenu' at 317:50
Т.е. Вот в этом участке
MyAboutMenu := TMenuItem.Create (Code.MainMenu);

Спс, помогите со вторым вопросом связанной с показом системной даты, смотрите скрипт на 4 поста выше.