| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Мигание компонента [D5]
Tundra © (2002-12-04 06:44:00)У меня на форме несколько Labelов и при наведении курсора на любой из них он меняет свет и на другой, но при этом происходит непонятное мигание тех компонентов которые меняют цвет, как это убрать.
Спасибо.
Tundra (2002-12-04 07:33:00) [21]procedure TForm8.LabelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var k,i:integer;
begin
k:=strtoint(Copy(tlabel(sender as tlabel).name, 6, 1));
for i:=1 to 7 do
if (i<>k) and
(tlabel(form8.FindComponent("Label" +inttostr(i))).color<>clYellow)
then
tlabel(form8.FindComponent("Label" +inttostr(i))).color:= clyellow ;
tlabel(sender as tlabel).color:=clinfobk;
end;
Эта процедура прописана для всех label по которым скользит курсор, и когда он уходит с одного ком-та тот меняет цвет на желтый, а тот на котором он установился должен стаить серым.
Все работает только если не мигание, можно ликак нибудь отключить пеперисовку экрана?
Дмитрий К.К. (2002-12-04 07:14:00) [22]Код в студию!
| |
Страницы: 