Последняя версия DataExpress 3 beta от 21 мая 2018 года. Скачать. Энциклопедия DX. Форум на Develop-Soft

Вопрос по TdxMemo

Вопросы о применении того или иного класса или функции.
KoalaBear
Интересующийся
Сообщения: 171
Зарегистрирован: Сб сен 02, 2017 5:05 pm

Вопрос по TdxMemo

Сообщение KoalaBear » Сб ноя 25, 2017 7:19 pm

Заранее извиняюсь и прошу модератора переместить мой вопрос в профильную тему.
Подскажите, пожалуйста, каким образом можно управлять "плюсиком" справа от TdxMemo (как его скрыть/показать)?

Аватара пользователя
YurAnt
Эксперт
Сообщения: 3375
Зарегистрирован: Чт апр 13, 2017 8:57 am
Контактная информация:

Re: Вопрос по TdxMemo

Сообщение YurAnt » Сб ноя 25, 2017 7:21 pm

TdxMemo.Button.Hide
TdxMemo.Button.Show

KoalaBear
Интересующийся
Сообщения: 171
Зарегистрирован: Сб сен 02, 2017 5:05 pm

Re: Вопрос по TdxMemo

Сообщение KoalaBear » Сб ноя 25, 2017 7:25 pm

Спасибо!

KoalaBear
Интересующийся
Сообщения: 171
Зарегистрирован: Сб сен 02, 2017 5:05 pm

Re: Вопрос по TdxMemo

Сообщение KoalaBear » Сб ноя 25, 2017 9:21 pm

Подскажите, пожалуйста, где я накосячил :oops:
Screenshot - 25.png

Аватара пользователя
YurAnt
Эксперт
Сообщения: 3375
Зарегистрирован: Чт апр 13, 2017 8:57 am
Контактная информация:

Re: Вопрос по TdxMemo

Сообщение YurAnt » Сб ноя 25, 2017 9:29 pm

Ну как сказать - "где..." - Везде... :D
Что Вы хотите сделать? Последовательность?

Пример скрытия/отображения на 2-х кнопках:

Код: Выделить всё

procedure HMB(Sender:TObject);
begin
dxMemo1.Button.Hide;
end;

procedure SMB(Sender:TObject);
begin
dxMemo1.Button.Show;
end;

procedure Form_Create;
begin
dxButton1.OnClick:=@HMB;
dxButton1.OnClick:=@SMB;
end;         

или Вы хотите универсальную функцию написать?

KoalaBear
Интересующийся
Сообщения: 171
Зарегистрирован: Сб сен 02, 2017 5:05 pm

Re: Вопрос по TdxMemo

Сообщение KoalaBear » Сб ноя 25, 2017 9:32 pm

Хотел сделать модуль расширений. Найти по имени компонента заметку и деактивировать "плюсик"... :oops:
upd: Напрямую, как Вы написали, работает, хотел универсальную сделать...

Аватара пользователя
YurAnt
Эксперт
Сообщения: 3375
Зарегистрирован: Чт апр 13, 2017 8:57 am
Контактная информация:

Re: Вопрос по TdxMemo

Сообщение YurAnt » Сб ноя 25, 2017 9:44 pm

Стырил болванку у neitri, чуть переделал.

Код: Выделить всё

{@function
OrigName=Memo_Btn_Visible
Name=Memo_Btn_Visible
Args=sb
Result=
Group=Свойства компонентов
Description=Функция для управления видимостью кнопки.<br>
Если условие истинно, кнопка указанной "Заметки" будет видна иначе будет скрыта.<br><br>
Memo_Btn_Visible('Заметка', 'условие')<br><br>
<B>Параметры:</B> <br>1. текст - имя "Заметки".<br>
2. Условие - условие отображения кнопки <br><br>
<B>Примеры:</B><br><br>
Memo_Btn_Visible('dxMemo1',USER='Admin')<br><br>
кнопка dxMemo1 будет видна только пользователю Admin. <br><br>
Memo_Btn_Visible('dxMemo1',1=1)<br><br>
кнопка dxMemo1 будет видна из-за принудительной становки истины в условии
@}
procedure Memo_Btn_Visible(FName: string; Visible:boolean);
var
  C:TComponent;
Begin
  C:=self.FindComponentByFieldName(FName);
  if (C<> nil) and (C is TdxMemo) then
  TdxMemo(C).Button.Visible:=Visible;
End;             

KoalaBear
Интересующийся
Сообщения: 171
Зарегистрирован: Сб сен 02, 2017 5:05 pm

Re: Вопрос по TdxMemo

Сообщение KoalaBear » Сб ноя 25, 2017 10:09 pm

Отлично работает, Спасибо!!


Вернуться в «Вопросы по API DataExpress.»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость