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

Вниз

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

 
Adios ©   (2006-02-27 05:43) [0]

Можноли сделать так, чтобы при нажатии на эту кнопку на ней не появлялось выделение, которое при нажатии на ентер нажмет еёже?


 
Defunct ©   (2006-02-27 05:50) [1]

?!
А разве это выделение само по себе не появляется?

или вы имеете в виду это:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 TBitBtn( Sender ).Default := True;
end;


 
Adios ©   (2006-02-27 05:53) [2]

это выделение появляется при нажатии и убирается после того как нажмёшь на другую кнопку, и тогда выделиной становится другая кнопка, и мне надо убрать это выделение вообще, есть ли способ это сделать?


 
Defunct ©   (2006-02-27 05:59) [3]

ой, простите мою невнимательность.

> на ней не появлялось выделение

тогда последней строчкой в обработчике нажания на кнопку передавайте фокус (SetFocus) какой-нибудь другой кнопке или полю ввода. Если у вас есть кнопка с установленным Default := True, тогда достаточно в последней строчке обработчика снять с себя фокус, например так:

TBitBtn( Sender ).Perform( WM_KILLFOCUS, 0,0);


 
Adios ©   (2006-02-27 06:03) [4]

а можно фокус имиджу передать?
если да, то напиши строчку передачи.


 
Defunct ©   (2006-02-27 06:09) [5]

Adios ©   (27.02.06 06:03) [4]

Имейджу нельзя.. он не является WinControl"ом.
Разместите Image поверх Panel, установите свойство Align = alClient у Image"a и передавайте фокус панели:

Panel1.SetFocus;


 
Adios ©   (2006-02-27 06:13) [6]

Спасибо тебе ОГРОМНОЕ, брат, выручил!



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

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

Наверх




Память: 0.45 MB
Время: 0.012 c
6-1132780992
PVasili
2005-11-24 00:23
2006.03.12
Как в XML хранить HTML?


2-1140537404
Михаил (Киров)
2006-02-21 18:56
2006.03.12
Нуль-модемное соединение


9-1126068360
Ищущий
2005-09-07 08:46
2006.03.12
экспорт анимации из Blender a


15-1140023986
Ученик чародея
2006-02-15 20:19
2006.03.12
Америка требует отменить торговые льготы, предоставляемые России.


9-1111792617
Yegorchic
2005-03-26 02:16
2006.03.12
Русская документ по 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
Английский Французский Немецкий Итальянский Португальский Русский Испанский