• Что такое KOL? Что такое MCK?

  ---

• Зависит ли размер программы, сделанной с помощью KOL, от версии Delphi?

  ---

• Возможно ли использовать одновременно KOL и VCL или, установив KOL, я не смогу воспользоваться VCL, не переустановив DELPHI?

  ---

• Библиотека KOL развивается, добавляются новые события, свойства, методы. Не опасаетесь ли Вы, что ваша библиотека раздуется до таких же размеров, как VCL? (И в чем тогда смысл изобретать велосипед...)

  ---

• Я устанавливаю дополнительный MCK-компонент XXXXX в Delphi6 (7). Создаю package, добавляю модуль XXXXX.pas, пытаюсь package установить, а в ответ получаю сообщение, что не найден модуль Proxies.dcu. И где я только такой модуль не искал, не могу найти. Что делать?

  ---

• У меня в MirrorKOLPackageD6 (MirrorKOLPackageD7) уже имеется ссылка на designide.dcp, но проект не компилируется: Delphi требует файл proxies.pas (dsgnintf.pas). Где взять такой файл?

  ---

• Я использую замену sys*.dcu, но не могу использовать Write и другие подобные функции для работы с текстовыми файлами. Как мне заставить их работать?

  ---

• Я не использую замену sys*.dcu, но не могу использовать try-except. Что нужно сделать, чтобы обработка исключительных ситуации работала правильно?

  ---

• Как реализовать кнопку по умолчанию, срабатывающую на нажатию клавиши Enter или Escape?

  ---

• У меня установлен шрифт 125%. В VCL есть у формы свойство Scaled. Достаточно поставить его в False, и надписи на кнопках, метках и т.д. помещаются вне зависимости от разрешения экрана. Как сделать то же самое в KOL?

  ---

• Когда используется переменная Applet, анимация при минимизации происходит не с позиции главной формы, а от верхнего левого угла экрана. Как это поправить?

  ---

• Как сделать DLL, содержащую форму, изготовленную в KOL, и правильно вызвать ее?

  ---

• Как правильно оформить вызов модальной формы?

  ---

• Возможно ли разрабатывать DLL, содержащую формы KOL визуально, используя MCK?

  ---

• Я хочу перемещать кнопку (или другой визуальный элемент) с помощью мыши. Как это сделать?

  ---

• Как рисовать прямо на рабочем столе, используя объект канвы (PCanvas) ?

  ---

• У меня на форме два (или больше) тулбара, и проект не компилируется: сообщает, что имя TB1 дублируется.

  ---

• Как правильно назначить в качестве обработчика события (например, OnMessage) процедуру, не являющуюся методом объекта? MainForm.OnMessage := TOnMessage(MakeMethod(nil,@OnHotKey)); где процедура OnHotKey описана как: function OnHotKey( var Msg: TMsg; var Rslt: Integer ): Boolean; вызывает ошибку во время исполнения.

  ---

• Отладчик неверно показывает значения переменным в окне Watch. Как с этим бороться?

   function ExecuteKOLform( < параметры > ): Integer;
   stdcall;
   var MyKOLForm: PControl;
   begin
     Applet := NewApplet( '' );
     MyKOLForm := NewForm( Applet, 'DllKolForm' );
     ... // здесь создать прочие элементы формы,
         // проинициализировать, ...
     MyKOLForm.ShowModal;
     ... // здесь можно прочитать состояние некоторых
         // визуальных элементов, поскольку они все еще
         // существуют
     Applet.Free;
   end;

// показ модального диалога с его созданием
// непосредственно перед началом диалога и
// с разрушением - после:
procedure TForm1.Button1Click(Sender: PObj);
begin
  NewForm2( Form2, Applet );
  // добавьте здесь свой код для инициализации
  // контролов формы Form2
  Form2.Form.ShowModal;
  // добавьте здесь свой код для чтения
  // состояний контролов формы Form2
  Form2.Form.Free; // нельзя использовать Close !
  //ShowMessage( 'End of TForm1.Button1Click' );
end;

// Для такого варианта достаточно определить
// вот такой обработчик какой-либо кнопки
// (но и он не требуется - достаточно закрыть
// форму обычным образом, нажимая "крестик"
// в заголовке окна, в этом случае значение
// ModalResult = -1 по завершении).
procedure TForm2.Button1Click(Sender: PObj);
begin
  Form.ModalResult := 1; // любое значение <> 0
end;

Чуть посложнее случай, когда форма существует (и обычно невидима), ее нужно модально показать, но не уничтожать по завершении диалога, а просто скрыть. В этом случае использование отдельного объекта Applet обязательно, главная форма не может выполнять его роль. Для MCK-проекта это означает, что на главную форму надо бросить компонент TKOLApplet.

// Показ диалога модально:
procedure TForm1.Button1Click(Sender: PObj);
begin
  Form2.Form.ShowModal;
  Form2.Form.Hide;
end;

// Завершение диалога по кнопке:
procedure TForm2.Button1Click(Sender: PObj);
begin
  Form.ModalResult := 1;
end;

// Обязательно надо определить событие OnClose
// и предотвратить в нем закрытие формы Form2:
procedure TForm2.KOLForm1Close(Sender: PObj;
            var Accept: Boolean);
begin
  Accept := FALSE;        // предотвращаем закрытие
  Form.ModalResult := -1; // любое значение <> 0
end;

  Exit;

procedure TForm1.BitBtn1MouseMove(Sender: PControl;
            var Mouse: TMouseEventData);
begin
  if FBtn1Down then
    BitBtn1.DragStartEx;
end;

procedure TForm1.BitBtn1MouseDown(Sender: PControl;
            var Mouse: TMouseEventData);
begin
  if Mouse.Button = mbLeft then
    FBtn1Down := TRUE;
end;

procedure TForm1.BitBtn1MouseUp(Sender: PControl;
            var Mouse: TMouseEventData);
begin
  FBtn1Down := FALSE;
  BitBtn1.DragStopEx;
end;

procedure TForm1.Panel1MouseDown(Sender: PControl;
var Mouse: TMouseEventData);
begin
  Panel1.DragStart;
end;

procedure TForm1.Toolbar1TB1Click
      (Sender: PControl; BtnID: Integer);
var C: PCanvas;
    D: HDC;
begin
  D := GetDC( 0 );
  C := NewCanvas( D );

  C.LineTo( 400, 400 ); // используем методы
                        // и свойства TCanvas

  C.Free;
  ReleaseDC( 0, D );
end;

function OnHotKey( Dummy_Self: PObj; var Msg: TMsg; var Rslt: Integer ): Boolean;