Последние записи
- Как сделать картинку адаптивной, само растягивающейся к размеру монитора, чтобы размер баннера изменялся сам — подстраивался под дизайн сайта
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
7th
Мар
Определение активного/выдленного компонента
Posted by Chas under Delphi
Есть несколько Edit-ов, Button-ов, ComboBox-ов, при нажатии кнопки F1 в них должны вызываться моя процедура ShowTooltip. Писать для каждого Edit-а отдельный вызов этой процедуры мне кажется неправильным. Я решил повесить один обработчик нажатия F1 (OnKeyDown) на саму форму. Теперь надо только определить какой из компонентов в фокусе.
Rusland
Прошу прощение, друзья, оказывается вот так надо было делать:
procedure TFrm1Main.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_F1) then begin
Caption:=ActiveControl.Name;
end;
end;
