Табуляция

← →
dimon1979 (2004-05-14 13:51) [0]

Почему KOL-овские компоненты не реагируют на клавишу TAB, хотя и них всех установлено свойство TabStop в Тrue?

← →
SPeller © (2004-05-14 14:51) [1]

Надо форме Tabulate в True выставить. Это если в MCK. Если на чистом KOL, то объекту формы вызвать метод Tabulate.

← →
Денис (2004-05-19 04:44) [2]

Что-то не получается. Если не трудно посмотрите в чем проблема:
function IbPassword(hWindow: HWND;InputStr: PChar): PChar; export; stdcall; var text: array[0..255] of char; i:integer; Form,Label1,Label2,GroupBox:PControl; Cntrl : array[1..4] of PControl; begin GetWindowText(hWindow,text,255); Applet:= NewApplet( "IbPassword" ); SetParent(Applet.GetWindowHandle,hWindow); Form:=NewForm(Applet,text); form.Tabulate; form.Style:=(WS_BORDER or WS_SYSMENU or WS_VISIBLE or WS_CAPTION); form.SetSize(350,150); form.CenterOnParent; GroupBox:=NewGroupbox(form,""); GroupBox.Align:=caClient; Label1:=NewLabel(GroupBox,"Имя пользователя"); Label2:=NewLabel(GroupBox,"Пароль"); Label1.Left:=5; Label1.Top:=25; Label1.Width:=150; Label2.Left:=5; Label2.Top:=70; Label2.Width:=150; Cntrl[1]:=NewEditbox(GroupBox,[eoWantTab]); Cntrl[1].Left:=155; Cntrl[1].Top:=25; Cntrl[1].Color:=clWindow; Cntrl[1].Width:=150; Cntrl[1].Focused:=true; Cntrl[1].Tabstop:=true; Cntrl[2]:=NewEditbox(GroupBox,[eoWantTab,eoPassword]); Cntrl[2].Left:=155; Cntrl[2].Top:=70; Cntrl[2].Color:=clWindow; Cntrl[2].Width:=150; Cntrl[2].Tabstop:=true; form.ShowModalEx; form.Free; Applet.Free; end;

← →
Денис (2004-05-19 05:16) [3]

Пардон, разобрался, eoWantTab - это лишнее

Табуляция Найти похожие ветки