Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 18, средняя оценка - 4.61
stasyano
0 / 0 / 1
Регистрация: 13.09.2009
Сообщений: 101
#1

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

15.01.2011, 14:06. Просмотров 2607. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос OnClick включение/выключение действия (Delphi):

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

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

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

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

Выключение компа... - Delphi
Подскажите, что надо написать в обработчике событий OnClick, чтобы при нажатии на кнопку вырубался комп... Добавлено через 50 минут 6...

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

26
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 18
Регистрация: 15.12.2009
Сообщений: 753
16.01.2011, 19:51 #16
Цитата Сообщение от stasyano Посмотреть сообщение
сортировки строк
Такой вопрос уже был(пользуйся поиском).Вот здесь он обсуждался.
0
stasyano
0 / 0 / 1
Регистрация: 13.09.2009
Сообщений: 101
16.01.2011, 20:14  [ТС] #17
да уж, в твоей ссылке как то не так сортируется)
пока что не нашел через поиск необходимого кода(
0
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 18
Регистрация: 15.12.2009
Сообщений: 753
16.01.2011, 20:37 #18
а какая именно сортировка тебе нужна?
1
stasyano
0 / 0 / 1
Регистрация: 13.09.2009
Сообщений: 101
16.01.2011, 22:12  [ТС] #19
я точно не знаю, как она должна выглядеть, я в делфи недавно работаю, но думаю, примерно так:
в цикле строки рассматриваются, как отдельные символы, сравнивает их( мб их коды из таблицы аски). Только я не знаю, какой вид сортировки оптимальный) Не подскажешь?

Добавлено через 7 минут
Вот так попробовал, не работает.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.N25Click(Sender: TObject);
var
p:string;
i,j:integer;
begin
  for i := 0 to memo1.lines.Count - 2 do
    for j := i + 1 to memo1.lines.Count - 1 do
      if StrToInt(memo1.lines[i]) > StrToInt(memo1.lines[j]) then
      begin
     p:=memo1.Lines[i];
     memo1.Lines[1]:=memo1.lines[j];
     memo1.lines[j]:=p;
      end;
end;
Добавлено через 1 час 13 минут
Лучше, наверное, пузырьковую)
0
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 18
Регистрация: 15.12.2009
Сообщений: 753
16.01.2011, 22:15 #20
Вот самый простой метод.
1
stasyano
0 / 0 / 1
Регистрация: 13.09.2009
Сообщений: 101
16.01.2011, 22:20  [ТС] #21
это сортировка по первому символу , а чтобы по всем сортировала? там как цикл вставить?
0
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 18
Регистрация: 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 / 18
Регистрация: 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 / 18
Регистрация: 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
Привет! Вот еще темы с ответами:

Выключение компьютера - Delphi
Здравствуйте, мне нужно чтоб программа выключала компьютер в час ночи, и чтобы его или нельзя было включить, или чтоб просто выключался до...

Выключение интернета - Delphi
Здравствуйте,собрался писать программу,составил алгоритм,но вот проблема возникла: как отключить интернет? допустим,человек ввёл пароль...

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

Перезагрузка\выключение компьютера - Delphi
Уважаемые форумчане. Срочно нужна прога которая перезагружает или выключает комп по наступлении определенного времени. Можете кидануть...


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

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

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