Пользователь

Добро пожаловать,

Регистрация или входРегистрация или вход
Потеряли пароль?Потеряли пароль?

Ник:
Пароль:

Меню сайта




Ваше мнение
Оцените скорость загрузки страниц сайта

Реактивная
Быстрая
Нормальная
Неважная
Медленная
Черепашья


Результаты
Другие опросы

Всего голосов: 971
Комментарии: 4


Наши партнеры



Статистика




Programming books  Download software  Documentation  Scripts  Content Managment Systems(CMS)  Templates  Icon Sets  Articles  Contacts  Voting  Site Search




hike38
Дата: 31.05.2009, 18:07 Сообщение №:1

Читатель

Группа: Читатель

Регистрация: 31.05.2009
Пользователь №: 87
Сообщений: 3
Пол: Нет информации
Спасибо сказали: 0 раз(а)

Предупреждений: 0
---------------------------
Предупреждений: 0 
Вставляешь на форму панель, а на панель три SpeedButton, в процедуре этих кнопок на событие OnClick записываешь:
Код
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
SpeedButton1.Down:=True;
RichEdit1.Paragraph.Alignment:=taLeftJustify;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
SpeedButton2.Down:=True;
RichEdit1.Paragraph.Alignment:=taCenter;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
SpeedButton3.Down:=True;
RichEdit1.Paragraph.Alignment:=taRightJustify;
end;

Сообщение отредактировалhike38 - 31.05.2009, 18:10
Тему читают 0 чел.
Пользователи(0):
Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском


.



книги по программированию исходники компоненты шаблоны сайтов C++ PHP Delphi скачать