nesco писал(а):
Те перевести ALL_BUTTONS_RESPOND_TO_ENTER в компонент и вывести это безобразие свойством, к примеру, RespondToEnter?Блин...
Вы чего все, с горы упали. Что ли...
В какое место ты собрался засунуть ALL_BUTTONS_RESPOND_TO_ENTER, спрашивается.
Результат будет, если его засунуть в KOL. Или его инклуды, что одно и то же.
И после этого, этот KOL - перекомпилировать.
Это называется пониманием, что такое компиляция. Всего лишь. В принципе, а не только в Дельфи...
Коллеги, это самые-самые основы. Повторюсь: САМЫЕ-САМЫЕ. Еще ДО выбора, с каким языком ты будешь работать.
Без которых и коды-то отрывать противопоказано.
Ну блин . . . . . . . . . . . . . . . . . . . . . . . . . . . .
--- Добавлено в 2017-09-17 13:57:58
BTW
Добавить CancelBtn можно примерно так:
- изменить одну строку в INI:
DefaultBtn=Определяет кнопку по-умолчанию|4|1|True,False,Cancel
- изменить пару строк в PAS:
THIButton = class(THIWin)
................
_prop_DefaultBtn:byte; // изменен тип с boolean на byte
................
end;
implementation
procedure THIButton.Init;
begin
Control := NewButton(FParent,_prop_Caption);
Control.OnClick := _OnClick;
// Control.DefaultBtn := _prop_DefaultBtn;
Control.Style := Control.Style or BS_MULTILINE;
inherited;
Case _prop_DefaultBtn of
0: Control.DefaultBtn := true;
2: Control.CancelBtn := true;
end;
end;