Как заставить Delphi TSpeedButton остаться нажатым, если это - единственное в группе
Ответ так же прост, как один вызов на замену на основе регулярных выражений:
<?php
$input = 'class1 class2 class3 ';
$output = preg_replace('/\s*([\w\d]+)\s*/', '.${1}', $input);
print_r($output);
Выход, очевидно,:
6 ответов
У меня есть № D7 здесь, но в D2006 остается на второй год Speedbutton, если GroupIndex имеет значение> 0.
Если это не поведение, Вы желаете, можно установить Вниз-свойство вручную в OnClick-Eventhandler (удостоверьтесь, что GroupIndex 0).
Я просто попробовал это в Delphi 7 (Сборка 4.453):
- создайте новое приложение
- добавить
TSpeedButtonсформироваться - набор
AllowAllUp := true; - набор
GroupIndex := 1; - запустите приложение
При нажатии кнопки это переключает свое неработоспособное состояние без любого другого необходимого кода.
knight_killer корректен. я могу сказать Вам, что это будет работать в любой версии Дельфи:
object SpeedButton1: TSpeedButton
Left = 152
Top = 384
Width = 23
Height = 22
AllowAllUp = True
GroupIndex = 99
end
Гм, странный, я не забываю использовать это довольно много раз с успехом. Возможно, необходимо попытаться играть с SpeedButton Down свойство? Я не думаю, что это переключается автоматически при нажатии на него---, необходимо явно переключиться Down, Я предполагаю...
[редактирование: замененный Checked с Down ---TSpeedButton не имеет a Checked свойство, извините!]
Прием должен установить GroupIndex на уникальное значение и установить AllowAllUp на истинный. Если Вы забудете первое, то это не останется на второй год, если Вы забудете второе, то это не не ляжет спать, после того как это снизилось.
Я искал решение для своей проблемы, и я думаю, что это - вид того же. Я хотел заставить SpeedButton переключиться вверх и вниз по состоянию точно так же, как переключатель, и я управлял этим путем установки свойств:
AllowAllUp := True;
GroupIndex := 1;
Затем в OnClick событие кнопки я записал:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if( SpeedButton1.AllowAllUp ) then
begin
SpeedButton1.AllowAllUp := False;
SpeedButton1.Down := True;
end else
begin
SpeedButton1.AllowAllUp := True;
SpeedButton1.Down := False;
end;
end;
Это переключает кнопку вниз, когда она нажата и когда по ней щелкают еще раз.
Надежда это будет иметь любую справку