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

Вниз

При удалении 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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
15-1448477619
K-1000
2015-11-25 21:53
2017.01.15
MapViewOfFile() ускоряет загрузку файлов?


4-1279862952
Олл
2010-07-23 09:29
2017.01.15
Обмен данными с внешим приложением


15-1455399002
Юрий
2016-02-14 00:30
2017.01.15
С днем рождения ! 14 февраля 2016 воскресенье


3-1311085051
yurikon
2011-07-19 18:17
2017.01.15
Сколько памяти занимает SQLEXPRESS


15-1449523802
Юрий
2015-12-08 00:30
2017.01.15
С днем рождения ! 8 декабря 2015 вторник