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]

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

Adios © (27.02.06 06:03) [4]

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

Panel1.SetFocus;

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

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