Focus

← →
Alexious (2003-10-03 16:55) [0]

Я создаю поле

MyEdit[i] := TEdit.Create(MyGroupBox[i]);
with MyEdit[i] do
begin
Parent := myGroupBox[i];
left := 30;
top := 50;
OnKeyPress := Edit1KeyPress;
end;

Как сделать так, чтобы оно сразу было с фокусом.

← →
dataMaster © (2003-10-03 17:06) [1]

Попробуй так:

with MyEdit[i] do
begin
Parent := myGroupBox[i];
Left := 30;
Top := 50;
OnKeyPress := Edit1KeyPress;
TabOrder:=0;
end;

← →
Alexious (2003-10-03 17:08) [2]

Неа не катит! не ставит фокус просто!

← →
Alexious (2003-10-03 17:08) [3]

Неа не катит! не ставит фокус просто!

← →
Bel © (2003-10-03 17:10) [4]

SetFocus?

← →
dataMaster © (2003-10-03 17:12) [5]

myGroupBox[i].TabOrder:=0;

← →
Song © (2003-10-03 17:13) [6]

ActiveControl ?
SetFocus ?

← →
Alexious (2003-10-03 17:44) [7]

2 все равно не ставит. Пиши tabOrder:=0 или нет

← →
Bel © (2003-10-03 17:54) [8]

> 2 все равно не ставит. Пиши tabOrder:=0 или нет

Чё-то я совсем не понял смысла этой фразы. Это я торможу под конец рабочего дня? Или Alexious фигню порет?

← →
dataMaster © (2003-10-03 18:20) [9]

>Alexious

Убери TabOrder совсем.
Смотри пост [6]. ActiveControl:=MyEdit[i];

← →
Alexious (2003-10-03 18:55) [10]

Ничего не пашет блин !!!
Can not focused disabled or invisible window

на formShow вызови SetFocus

← →
Alexious (2003-10-03 20:58) [12]

Короче и formshow у меня нету..... вот полный код... мне нужно чтобы в каждом появляющемся tedit был фокус

procedure Tpr_vax.FormCreate(Sender: TObject);
var
i,n: integer;
begin
n := 1;
for i := 1 to 13 do
begin
MyGroupBox[i] := TGroupBox.Create(nil);
with MyGroupBox[i] do
begin
Parent := pr_vax;
height := 90;
if i div 3 = i / 3 then
n := n + 1;
case i of
1: caption := "2 в 8";
2: caption := "2 в 10";
3: caption := "2 в 16";
4: caption := "8 в 2";
5: caption := "8 в 10";
6: caption := "8 в 16";
7: caption := "10 в 2";
8: caption := "10 в 8";
9: caption := "10 в 16";
10: caption := "16 в 2";
11: caption := "16 в 8";
12: caption := "16 в 10";
13: caption := "16 в 10";
end;
visible := false;
end;
MyLabel[i] := TLabel.Create(MyGroupBox[i]);
with MyLabel[i] do
begin
Parent := myGroupBox[i];
left := 70;
top := 30;
end;
MyEdit[i] := TEdit.Create(MyGroupBox[i]);
with MyEdit[i] do
begin
Parent := myGroupBox[i];
left := 30;
top := 50;
OnKeyPress := Edit1KeyPress;
end;
end;
NextStep;
end;

← →
Nos (2003-10-04 19:46) [13]

TabOrder:=0;

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