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

Вниз

TStringGrid   Найти похожие ветки 

 
Lana   (2010-11-19 15:59) [0]

Здравствуйте!
Можно ли в TStringGrid-е сделать так, чтобы некоторые строки или столбцы нельзя было редактировать?


 
Amoeba_   (2010-11-19 16:07) [1]

Можно, никто не запрещает.


 
И. Павел ©   (2010-11-19 16:14) [2]

procedure TFormEditVesa.GridVesaSelectCell(Sender: TObject; ACol, ARow: Integer;
 var CanSelect: Boolean);
begin
 if not(goEditing in GridVesa.Options) then CanSelect:=true
 else if (ARow>1) and (ARow<(KolSotr+2)) and
      (
        ...
      )
      then CanSelect:=true
      else CanSelect:=false;
end;


 
И. Павел ©   (2010-11-19 16:14) [3]

[2] - это обработчик события StringGrid.OnSelectCell


 
Amoeba_   (2010-11-19 16:31) [4]

Есть еще один способ.

Кидаем на форму компонент TApplicationEvents, создаем у него обработчик события OnIdle. Затем в этом обработчике отслеживаем Row и Col текущей ячейки и в зависимости от этого работаем с Options грида, запрещая или разрешая его редактирование.


 
Lana   (2010-11-19 17:28) [5]

Большое спасибо!



Страницы: 1 вся ветка

Текущий архив: 2011.02.06;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.003 c
15-1288267223
PEAKTOP
2010-10-28 16:00
2011.02.06
Ну что, начинаем все сначала ?


6-1233923881
leonidus
2009-02-06 15:38
2011.02.06
Прерывание работы TidHTTP


15-1287415882
ocean
2010-10-18 19:31
2011.02.06
Флешка 4Г стала 4М


3-1251976429
kyn66
2009-09-03 15:13
2011.02.06
После обновления компонентов ADS - ошибка


6-1233781685
HITMAN
2009-02-05 00:08
2011.02.06
Удалённый рабочий стол.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский