Программное нажатие на SpedButton

← →
DroNIX (2005-10-05 21:47) [0]

Я сделал так:
procedure Tmin_form.FormKeyPress(Sender: TObject; var Key: Char); begin if key in ["a".."z","A".."Z"] then with main_form do begin TbsSkinSpeedButton(FindComponent(key+"_button")).Perform(WM_LBUTTONDOWN, 0, 0); TbsSkinSpeedButton(FindComponent(key+"_button")).Perform(WM_LBUTTONUP, 0, 0); end; end;
Но кнопка остаётся подсвеченой (как бы на ней курсор наведён), down, repain не помогают.
Что добавить?

← →
Eleepod © (2005-10-05 22:15) [1]

Зачем так сложно?

Вполне работает

SpeedButton1.Perform(WM_LBUTTONDOWN, 0, 0);
SpeedButton1.Perform(WM_LBUTTONUP, 0, 0);

← →
DroNIX (2005-10-05 22:36) [2]

ну у меня 26 кнопок, поэтому так сложно :)
У меня не работает, остаётся подсеченной, курсор к ней подводишь, потом уводишь, и только тогда перетаёт гореть

← →
Alexander Panov © (2005-10-05 22:41) [3]

Еще проще - SpeedButton1.Click;
или TSpeedButton(FindComponent("SpeedButton1")).Click;

← →
Eleepod © (2005-10-05 23:50) [4]

Хм, попробовал у себя так

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key in ["0".."9"]
then with Form1 do
begin
TSpeedButton(FindComponent("SpeedButton" + key)).Perform(WM_LBUTTONDOWN, 0, 0);
TSpeedButton(FindComponent("SpeedButton" + key)).Perform(WM_LBUTTONUP, 0, 0);
end;
end;

все норамально работает...

← →
Германн © (2005-10-06 00:35) [5]

2 Eleepod © (05.10.05 23:50) [4]
Дык у тебя TSpeedButton, а у него что за зверь? ХЗ :(

← →
DroNIX (2005-10-06 10:46) [6]

Да был бы это простой SpeedButton было бы легче, но этот иz DynamicSkinForm VCL.
Они забыли наверно что-то добавить, там даже .Click нету

← →
DroNIX (2005-10-06 18:09) [7]

CM_MOUSELEAVE
это помогло.

Программное нажатие на SpedButton Найти похожие ветки