Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];
Вниз
Пробежка по ячейкам в StringGrid Найти похожие ветки
← →
zedalex (2004-07-16 11:04) [0]Здравствуйте!! У меня такой вопрос: можно ли как-то программно
при работе в StringGridе при нажатии на пример на клавишу Таб перепрыгнуть через одну колонку, то есть пропустить ее и перейти к редактированию следующей? Очень нужно!! Не могу найти тип сообщения для этого действия. Помогите пожалуйста.
С уважением Александр
← →
NAlexey © (2004-07-16 11:26) [1]А какой тип может быть? Отлавливаешь нажатие клавиши в сетке, проверяешь если это таб, то Grid.Col := Grid.Col + 2;
← →
begin...end © (2004-07-16 11:27) [2]OnKeyDown ?
← →
Леприкон © (2004-07-16 11:39) [3]
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure FormCreate(Sender: TObject);
procedure StringGrid1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
DethCol:integer;
znak:smallint;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if ACol=DethCol then znak:=Sign(ACol-StringGrid1.Col);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DethCol:=2; //я взял второй столбец
end;
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
if StringGrid1.Col=DethCol then StringGrid1.Col:=StringGrid1.Col+znak;
end;
в uses добавь Math для Sign
← →
zedalex (2004-07-16 13:18) [4]Спасибо я уже нашел как это сделать через массив
StringGrid1.TabStops. Я его как-то неприметил!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c
