Код: Выделить всё
procedure TMainForm.DB_membersKeyPress(Sender: TObject; var Key: char);
begin
if DB_members.SelectedColumn.Index = 4 then
Key:= #0;
end
Код: Выделить всё
procedure TMainForm.DB_membersKeyPress(Sender: TObject; var Key: char);
begin
if DB_members.SelectedColumn.Index = 4 then
Key:= #0;
end
Код: Выделить всё
path:= Application.Location;