Форум: "KOL";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];

Вниз

Tabulate   Найти похожие ветки 

← →
Kirill   (2002-07-12 13:43) [0]

Как без использования MCK (стандартными возможностями "чистого" KOL) реализовать сабж? Т.е. чтобы при нажатии на TAB фокус переходил к другому объекту.

---

← →
HekTo   (2002-07-12 17:03) [1]

program KolDemoApp;

uses
Windows, Messages, Kol;

var
Form: PControl;
begin
DefFontHeight:=8;
Applet:=NewApplet("KolDemoApp") .Tabulate;
Form:=NewForm(Applet, "Kol Demo App").SetSize(320, 180).CenterOnParent;
Form.Style:=WS_DLGFRAME or WS_CAPTION or WS_SYSMENU or WS_VISIBLE;
Form.Font;
NewButton(Form, "Proceed").SetSize(75, 21).SetPosition(57, 110);
NewButton(Form, "Close").SetSize(75, 21).SetPosition(188, 110);
Run(Applet);
end.


---

← →
Kirill   (2002-07-12 17:35) [2]

Спасибо, работает.
Но как-то уж очень долго перепрыгивает на следующий контрол?

---

Страницы: 1 вся ветка

Форум: "KOL";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c