Главная страница
    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.05 c
11-1066039342
RA
2003-10-13 14:02
2004.05.09
Кто нибудь пытался перевести под KOL комп-ты BDE


3-1081754066
pashtet
2004-04-12 11:14
2004.05.09
Почему не используется индекс запросе..?


1-1082971123
BALU1111
2004-04-26 13:18
2004.05.09
Как запретить запуск дубликата программы?


14-1081916514
LaidBack
2004-04-14 08:21
2004.05.09
Помогите опознать исполнителя песни:


9-1068147963
kootel
2003-11-06 22:46
2004.05.09
Установка GLScene





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский