| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Tabulate

Kirill ©   (2002-07-12 13:43:00) 

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

---

Kirill   (2002-07-12 17:35:00) [1]

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

---

HekTo   (2002-07-12 17:03:00) [2]

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.


---

Наверх