Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2017.01.15;
Скачать: [xml.tar.bz2];

Вниз

При удалении TabSheet-ов стринггрид теряет фокус   Найти похожие ветки 

 
4ainik   (2012-07-10 21:28) [0]

При удалении TabSheet-ов стринггрид теряет фокус, если динамических TabSheet-ов было больше одного.

var
tsnew:TTabSheet;

tsnew:=TTabSheet.Create(self);      //
 for j:=PageControl1.PageCount-1 downto 1 do  
 PageControl1.Pages[1].Free;

 for i:=0 to str_acc.count-1 do
 begin
   tsnew:=TTabSheet.Create(self);
   with tsnew do
   begin
     PageControl := PageControl1;
     Caption :=str_acc.Strings[i];
     PageControl1.ActivePageIndex:=0;
   end;
 end;

Одна закладка всегда присутствует. Добавляются динамические закладки и удаляются все кроме 0-ой. Если динамических закладок было больше одной, то стрингрид теряет фокус. Закладки удаляются/добавляются при перемещении курсора по ячейкам стринггрида.
Можно в конец конечно добавить StringGrid1.SetFocus; но так же при потере фокуса происходит "моргание" всей формы, что не есть гуд.


 
KilkennyCat ©   (2012-07-23 12:32) [1]


>  PageControl1.Pages[1].Free;

это опечатка?

> Можно в конец конечно добавить StringGrid1.SetFocus;

нужно

> при потере фокуса происходит "моргание" всей формы

блокировать перерисовку, если так много удалений за раз.



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

Форум: "Основная";
Текущий архив: 2017.01.15;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.045 c
15-1448746204
Юрий
2015-11-29 00:30
2017.01.15
С днем рождения ! 29 ноября 2015 воскресенье


2-1424187609
TYMON
2015-02-17 18:40
2017.01.15
Технология Intraweb пустая страница при запуске


15-1449479729
Limpo
2015-12-07 12:15
2017.01.15
Адрес константы внутри процедуры


15-1455226204
Юрий
2016-02-12 00:30
2017.01.15
С днем рождения ! 12 февраля 2016 пятница


1-1341941337
4ainik
2012-07-10 21:28
2017.01.15
При удалении TabSheet-ов стринггрид теряет фокус





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