Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
stasyano
0 / 0 / 1
Регистрация: 13.09.2009
Сообщений: 101
#1

OnClick включение/выключение действия

15.01.2011, 14:06. Просмотров 2648. Ответов 26
Метки нет (Все метки)

При нажатии на тулбатн должно происходить "вдавливание кнопки" и предавание выделенному тексту жирный оттенок. При повторном нажатии должна отключаться "жирность" текста и "выпрямляться" кнопка.
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.ToolButton6Click(Sender: TObject);
begin
toolbutton6.down:=not(toolbutton6.down);
if memo1.seltext<>''  then
 begin
   case toolbutton6.Down of
      true: memo1.SelAttributes.Style:=[fsBold];
      false:memo1.SelAttributes.Style:=[];
   end;
 end;
end;
Даже если я оставлю следующую строку, кнопка все равно не встает на свое прежнее положение, остается вдавленной
Delphi
1
toolbutton6.down:=not(toolbutton6.down);
Хотя если я эту строку впишу в процедуру компонента timer, то все будет работать
Плз, подскажите, что не так
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.01.2011, 14:06
Ответы с готовыми решениями:

Включение/выключение таймера в заданное время
имеется небольшой таймер: unit Unit1; interface uses Windows,...

Выключение пк
подскажите как выключить пк при нажатии на кнопку ? Но чтоб при выключении все...

Onclick
Добрый день! Говоря в кратце - есть форма. На ней TImage. Надо считывать...

Выключение ПК программно
Тут вот такая штука... мне нужно собрать воедино куски одной простенькой...

выключение компьютера
Подскажите пожалуйста как сделать выключение компьютера после завершении работы...

26
stasyano
0 / 0 / 1
Регистрация: 13.09.2009
Сообщений: 101
16.01.2011, 22:20  [ТС] #21
это сортировка по первому символу , а чтобы по всем сортировала? там как цикл вставить?
0
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 81
Регистрация: 15.12.2009
Сообщений: 753
16.01.2011, 22:25 #22
Цитата Сообщение от stasyano Посмотреть сообщение
это сортировка по первому символу
Нет, это сортировка по всем символам.
1
stasyano
0 / 0 / 1
Регистрация: 13.09.2009
Сообщений: 101
16.01.2011, 22:36  [ТС] #23
хм)
0
1
10
11
12
2
3
4
5
6
7
8
9
правда, ошибся. Но все же цифры он сортирует некорректно) от этого не убежать?)

Добавлено через 5 минут
извиняюсь, у меня уже мозг не варит)
спасибо большое за помощь!)

Добавлено через 2 минуты
А по убыванию процедуры нет))
0
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 81
Регистрация: 15.12.2009
Сообщений: 753
16.01.2011, 22:38 #24
Цитата Сообщение от stasyano Посмотреть сообщение
А по убыванию процедуры нет))
в смысле сортировка только наоборот???
1
stasyano
0 / 0 / 1
Регистрация: 13.09.2009
Сообщений: 101
16.01.2011, 22:39  [ТС] #25
да, именно) сортирвока по убыванию)
0
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 81
Регистрация: 15.12.2009
Сообщений: 753
16.01.2011, 22:48 #26
Вот немного изменил тот код.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
var
  t: TStringList;
  i:integer;
begin
  // ñîçäГ*ГҐГ¬
  t:=TStringList.Create;
  // ïðèñâГ*ГЁГўГ*ГҐГ¬ ïåðåìåГ*Г*îé t ñòðîêè ГЁГ§ Memo
  t.AddStrings(memo1.lines);
  // ñîðòèðóåì
  t.Sort;
  memo1.Clear;
  // ïðèñâГ*ГЁГўГ*ГҐГ¬ memo óæå îòñîðòèðîâГ*Г*Г*ûå ñòðîêè
  For i:=t.Count-1 downto 0 do
  Memo1.Lines.Add(t.Strings[i]);
end;
1
stasyano
0 / 0 / 1
Регистрация: 13.09.2009
Сообщений: 101
16.01.2011, 22:50  [ТС] #27
спасибо большое=) вроде почти за каждое сообщение плюсанул рейта)
0
16.01.2011, 22:50
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2011, 22:50

Выключение перезагрузка
Как сделать выключение и перезагрузку с завершением всех программ Чтобы не...

Выключение компа...
Подскажите, что надо написать в обработчике событий OnClick, чтобы при нажатии...

Выключение программы
Добрый день. Есть программа, с помощью которой операционисты подключаются к...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
27
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru