| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как заставить кнопку мигать ?

kudatsky ©   (2007-11-04 10:59:00) 

Речь идёт о кнопках TButton,TBitBtn,TSpeedButton,TToolButton

---

kudatsky   (2007-11-04 12:55:00) [1]

Удачное решение. Спасибо !

---

homm   (2007-11-04 12:38:00) [2]

> [5] kudatsky   (04.11.07 12:13)
> TToolButton нет свойства Handle

Вот так работает с любым контроллом.

procedure TForm1.Button1Click(Sender: TObject);
var
 DC: HDC;
 Ctrl: TControl;
begin
 Ctrl := Image1;
 Inc(Counter);

 if Odd(Counter) then begin
   if (Ctrl is TWinControl) then begin
     DC := GetDC((Ctrl as TWinControl).Handle);
     BitBlt(DC, 0, 0, Ctrl.Width, Ctrl.Height, 0, 0, 0, PATINVERT);
     ReleaseDC((Ctrl as TWinControl).Handle, DC);
   end else begin
     DC := GetDC(Ctrl.Parent.Handle);
     BitBlt(DC, Ctrl.Left, Ctrl.Top, Ctrl.Width, Ctrl.Height, 0, 0, 0, PATINVERT);
     ReleaseDC(Ctrl.Parent.Handle, DC);
   end;
 end else begin
   Ctrl.Invalidate;
 end;
end;

---

Kolan   (2007-11-04 12:37:00) [3]

> Делаю голосовой Help

Сними видео и не мучайся.

---

Anatoly Podgoretsky   (2007-11-04 12:24:00) [4]

> kudatsky   (04.11.07 11:28) [2]

У TButton нет свойства ImageIndex

---

kudatsky   (2007-11-04 12:13:00) [5]

Хорошая мысль. Но получается только с TButton и его потомками, т.к. к
TToolButton нет свойства Handle

---

homm   (2007-11-04 11:43:00) [6]

Может быть так подойдет?

procedure TForm1.Timer1Timer(Sender: TObject);
var
 r: TRect;
 DC: HDC;
begin
 GetWindowRect(Button1.Handle, R);
 DC := GetDC(0);
 BitBlt(DC, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, DC, R.Top, R.Left, PATINVERT);
 ReleaseDC(0, DC);
end;

---

homm   (2007-11-04 11:37:00) [7]

Что такое «мигать»?

---

kudatsky   (2007-11-04 11:28:00) [8]

Делаю голосовой Help, а сопровождать его будет мигание кнопок.
В общем, у меня только-что нечто получилось. Может, на этом и остановлюсь.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(Counter);
if Odd(Counter) then
  ToolButton3.ImageIndex:=2
  else
  ToolButton3.ImageIndex:=4;
end;

Т.е. мигание идёт за счёт смены картинок.

---

homm   (2007-11-04 11:19:00) [9]

Мысленным усилием.
Ни разу не видел, что-бы кнопка мегала. Что нужно?

---

Наверх