Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

26th
Фев

Как програмно снять выделение с кнопки?

Posted by Chas under Топик-обзор

Sibedir:

Можно это сделать и с TWinControl.
На сколько я понял, кроме диактивации контрола (стяли жирную рамочку) нужно еще снять фокус (стяли пунктирную рамочку).
Короче как-то так

procedure KillFocus1 (AControl: TWinControl);
begin
  SendMessage (AControl.Handle, WM_KILLFOCUS, 0, 0);
  SendMessage (AControl.Handle, CM_FOCUSCHANGED, 0, 0);
  AControl.TabStop := False;
  AControl.ControlState := AControl.ControlState + [csFocusing];
end;Syhi-подсветка кода

или так

procedure KillFocus2 (AControl: TWinControl);
begin
  GetParentForm(AControl).ActiveControl := nil;
  AControl.TabStop := False;
  AControl.ControlState := [csFocusing]
end;Syhi-подсветка кода