Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2017-09-17 13:57:04 ЛС | профиль | цитата
nesco писал(а):
Те перевести ALL_BUTTONS_RESPOND_TO_ENTER в компонент и вывести это безобразие свойством, к примеру, RespondToEnter?

Блин...
Вы чего все, с горы упали. Что ли...
В какое место ты собрался засунуть ALL_BUTTONS_RESPOND_TO_ENTER, спрашивается.
Результат будет, если его засунуть в KOL. Или его инклуды, что одно и то же.
И после этого, этот KOL - перекомпилировать.

Это называется пониманием, что такое компиляция. Всего лишь. В принципе, а не только в Дельфи...
Коллеги, это самые-самые основы. Повторюсь: САМЫЕ-САМЫЕ. Еще ДО выбора, с каким языком ты будешь работать.
Без которых и коды-то отрывать противопоказано.
Ну блин . . . . . . . . . . . . . . . . . . . . . . . . . . . .



--- Добавлено в 2017-09-17 13:57:58
BTW

Добавить CancelBtn можно примерно так:

  1. изменить одну строку в INI:
    DefaultBtn=Определяет кнопку по-умолчанию|4|1|True,False,Cancel
  2. изменить пару строк в 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;

карма: 9

0
Редактировалось 6 раз(а), последний 2017-09-17 14:03:32