Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Не получается TButton.Default :(   Найти похожие ветки 

 
Seldon ©   (2004-04-22 21:42) [0]

for B := 0 to 5 do
begin
 Button:=TButton.Create(Form1);
 with Button do
 begin
   Parent := Form1;
   Left:=B*75;
   Default:=B=1;
 end;
end;

Создаёт 5 кнопок. Вызывается в Form1.OnCreate. Дефолтной должна быть 2 кнопка. Но остаётся первая. Почему?


 
Seldon ©   (2004-04-22 21:42) [0]

for B := 0 to 5 do
begin
 Button:=TButton.Create(Form1);
 with Button do
 begin
   Parent := Form1;
   Left:=B*75;
   Default:=B=1;
 end;
end;

Создаёт 5 кнопок. Вызывается в Form1.OnCreate. Дефолтной должна быть 2 кнопка. Но остаётся первая. Почему?


 
Fay ©   (2004-04-22 21:52) [1]

1) Должен создавать 6 кнопок
2) Попробуй
B := 0
repeat
 with TButton.Create(Form1) do
   begin
      Parent := Form1;
      Left := B * 75;
      Default := B = 1;
   end;
 Inc(B);
until B = 5;

Я не проверял 8)


 
Fay ©   (2004-04-22 21:52) [1]

1) Должен создавать 6 кнопок
2) Попробуй
B := 0
repeat
 with TButton.Create(Form1) do
   begin
      Parent := Form1;
      Left := B * 75;
      Default := B = 1;
   end;
 Inc(B);
until B = 5;

Я не проверял 8)


 
Алхимик ©   (2004-04-22 21:55) [2]


> for B := 0 to 5 do

6 кнопок
0 - не дефолт
1 - дефолт
2 - не дефолт
3 - не дефолт
4 - не дефолт
5 - не дефолт


 
Алхимик ©   (2004-04-22 21:55) [2]


> for B := 0 to 5 do

6 кнопок
0 - не дефолт
1 - дефолт
2 - не дефолт
3 - не дефолт
4 - не дефолт
5 - не дефолт


 
Yanis ©   (2004-04-22 21:57) [3]

Что значит
>Дефолтной должна быть 2 кнопка
???


 
Yanis ©   (2004-04-22 21:57) [3]

Что значит
>Дефолтной должна быть 2 кнопка
???


 
Seldon ©   (2004-04-22 22:00) [4]

Да, 6 кнопок, не в этом суть.

>Что значит
>>Дефолтной должна быть 2 кнопка
>???
Значит после цикла 2 кнопка (если счётвести от 1) должна иметь фокус, и, как следствие, реагировать на Enter.


 
Seldon ©   (2004-04-22 22:00) [4]

Да, 6 кнопок, не в этом суть.

>Что значит
>>Дефолтной должна быть 2 кнопка
>???
Значит после цикла 2 кнопка (если счётвести от 1) должна иметь фокус, и, как следствие, реагировать на Enter.


 
Fay ©   (2004-04-22 22:01) [5]

Блин! Не сменил критерий дефолтности...


 
Fay ©   (2004-04-22 22:01) [5]

Блин! Не сменил критерий дефолтности...


 
Seldon ©   (2004-04-22 22:06) [6]

>Fay ©   (22.04.04 22:01) [5]
>Это мне или себе?


 
Seldon ©   (2004-04-22 22:06) [6]

>Fay ©   (22.04.04 22:01) [5]
>Это мне или себе?


 
Yanis ©   (2004-04-22 22:07) [7]

А почему бы не использовать  windows.SetFocus(Button2.Handle);
???


 
Yanis ©   (2004-04-22 22:07) [7]

А почему бы не использовать  windows.SetFocus(Button2.Handle);
???


 
Fay ©   (2004-04-22 22:26) [8]

2Seldon ©   (22.04.04 22:06) [6]
Себе


 
Fay ©   (2004-04-22 22:26) [8]

2Seldon ©   (22.04.04 22:06) [6]
Себе


 
Anatoly Podgoretsky ©   (2004-04-22 22:31) [9]

Если какая то из кнопок имеет фокус, то ни о какой дефолтности и речи быть не может. А фокус задается не Default, а установкой фокуса на нужный элемент.


 
Anatoly Podgoretsky ©   (2004-04-22 22:31) [9]

Если какая то из кнопок имеет фокус, то ни о какой дефолтности и речи быть не может. А фокус задается не Default, а установкой фокуса на нужный элемент.


 
Fay ©   (2004-04-22 22:36) [10]

2Anatoly Podgoretsky ©   (22.04.04 22:31) [9]

> Если какая то из кнопок имеет фокус, то ни о какой дефолтности
> и речи быть не может

В каком смысле?


 
Fay ©   (2004-04-22 22:36) [10]

2Anatoly Podgoretsky ©   (22.04.04 22:31) [9]

> Если какая то из кнопок имеет фокус, то ни о какой дефолтности
> и речи быть не может

В каком смысле?


 
Seldon ©   (2004-04-22 22:38) [11]

>windows.SetFocus(Button2.Handle);
Да не подумал как-то. Сейчас вот попробовал - понравилось.

>В каком смысле?
Присоединяюсь


 
Seldon ©   (2004-04-22 22:38) [11]

>windows.SetFocus(Button2.Handle);
Да не подумал как-то. Сейчас вот попробовал - понравилось.

>В каком смысле?
Присоединяюсь


 
Gero ©   (2004-04-22 22:39) [12]


> В каком смысле?

Когда на кнопку попадает фокус, она становится дефолтной.


 
Gero ©   (2004-04-22 22:39) [12]


> В каком смысле?

Когда на кнопку попадает фокус, она становится дефолтной.


 
Anatoly Podgoretsky ©   (2004-04-22 22:50) [13]

В таком смысле, что если фокус на другой кнопке, то она имеет приоритет перед дефолтной, при этом ни в коей мере она сама дефолтной не становится.
Дефолтная кнопка действует только если фокус стоит не на кнопке, например на эдит.


 
Anatoly Podgoretsky ©   (2004-04-22 22:50) [13]

В таком смысле, что если фокус на другой кнопке, то она имеет приоритет перед дефолтной, при этом ни в коей мере она сама дефолтной не становится.
Дефолтная кнопка действует только если фокус стоит не на кнопке, например на эдит.


 
Gero ©   (2004-04-22 22:58) [14]


> этом ни в коей мере она сама дефолтной не становится

Визуально становится.
Да и вести себя начинает так же.
Но Default, конечно же останется в False.


 
Gero ©   (2004-04-22 22:58) [14]


> этом ни в коей мере она сама дефолтной не становится

Визуально становится.
Да и вести себя начинает так же.
Но Default, конечно же останется в False.



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

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.51 MB
Время: 0.037 c
9-1068147963
kootel
2003-11-06 22:46
2004.05.09
Установка GLScene


9-1070889697
zzet
2003-12-08 16:21
2004.05.09
Линия и цвет OpenGl


14-1081995157
Думкин
2004-04-15 06:12
2004.05.09
С днем рождения! 15 апреля.


1-1082444567
Сережа550
2004-04-20 11:02
2004.05.09
GUI-Консоль


14-1081732593
TButton
2004-04-12 05:16
2004.05.09
Стартовая Страница





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский