Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.037 c
1-1090302174
Lena
2004-07-20 09:42
2004.08.01
Delphi.net


4-1087581512
Вася
2004-06-18 21:58
2004.08.01
Как определить закртыт или открыт CDROM


8-1084713961
iudjen
2004-05-16 17:26
2004.08.01
видеозапись экрана


10-1024289915
Comwad
2002-06-17 08:58
2004.08.01
С чем едят   Borland Application Server ?


3-1089008948
Pavelkq
2004-07-05 10:29
2004.08.01
Какую базу поюзать и как?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский