Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.01;
Скачать: CL | DM;

Вниз

Пробежка по ячейкам в 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
1-1090355166
NOX
2004-07-21 00:26
2004.08.01
вопрос по стилю XP


14-1090006141
Rouse_
2004-07-16 23:29
2004.08.01
LOL


6-1086187746
Forelli
2004-06-02 18:49
2004.08.01
Как отправить письмо из Delphi 7


1-1089874924
Семенов
2004-07-15 11:02
2004.08.01
Как определить загружена программа или нет?


11-1078153729
Dentall
2004-03-01 18:08
2004.08.01
Создание нескольких экземпляров форм