Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 676
от 11.12.2006, 04:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 416, Экспертов: 64
В номере:Вопросов: 2, Ответов: 5


Вопрос № 65620: как сделать надпись на кнопке не горизонтальной, а вертикальной?...
Вопрос № 65634: Пишу на Delphi консольное приложение. Хочу использовать таймер. Создание таймера не вызывает вопросов, но вот как назначить ему обработчик (на событие OnTimer) в рамках консольного приложения не понимаю. ..

Вопрос № 65.620
как сделать надпись на кнопке не горизонтальной, а вертикальной?
Отправлен: 05.12.2006, 12:28
Вопрос задал: ALEXEY (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Кулаков Антон Сергеевич /SandroNec
Здравствуйте, ALEXEY!
Наверно самый простой вариант:
у кнопки свойство wordwrap поставить в true и
с помощью цикла сделать
for i := 1 to length(caption) do
button1.caption := button1.caption + caption[i] + #13;
Наверно так.
---------
Настоящий программист на вопрос - "можешь ли ты это сделать", всегда ответит - "да", а потом подумает как
Ответ отправил: Кулаков Антон Сергеевич /SandroNec (статус: 4-ый класс)
Ответ отправлен: 05.12.2006, 13:15
Оценка за ответ: 5

Отвечает: KiberZero
Здравствуйте, ALEXEY!

Попробуйте так:

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.Caption:='К'+#13+'н'+#13+'о'+#13+'п'+#13+'к'+#13+'а';
end;

Да,чуть не забыл - поставьте значение WordWrap - True.

И ещё, если использовать компонент TBitBtn, то можно просто поместить картинку с надписью, расположенной вертикально.
Ответ отправил: KiberZero (статус: 3-ий класс)
Ответ отправлен: 05.12.2006, 15:29


Вопрос № 65.634
Пишу на Delphi консольное приложение. Хочу использовать таймер.
Создание таймера не вызывает вопросов, но вот как
назначить ему обработчик (на событие OnTimer)
в рамках консольного приложения не понимаю.
Отправлен: 05.12.2006, 14:27
Вопрос задал: Gwa (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 20)

Отвечает: Mexes
Здравствуйте, Gwa!
Заведите свой класс с публичным методом вроде

procedure OnTimer(Sender:TObject);

В нем напишите код обработчика. В начале работы консольного приложения создайте объект этого класса (foo) и присвойте таймеру обработчик

Timer.OnTime:=foo.OnTimer;
Ответ отправил: Mexes (статус: 6-ой класс)
Ответ отправлен: 05.12.2006, 14:36

Отвечает: KiberZero
Здравствуйте, Gwa!

Смотря для чего назначать.Например,можно так:

procedure TForm1.Timer1Timer(Sender: TObject);
var v:TDateTime;
begin
v:=Time;
Label1.Caption:=FormatDateTime('tt',v);
end;
Ответ отправил: KiberZero (статус: 3-ий класс)
Ответ отправлен: 05.12.2006, 15:34

Отвечает: Писарев, Павел, Юрьевич
Здравствуйте, Gwa!
В приложение приведён пример работы с компанентом TTimer.

Приложение:

Ответ отправил: Писарев, Павел, Юрьевич (статус: 2-ой класс)
Ответ отправлен: 05.12.2006, 22:55


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.37 от 04.10.2006
Яндекс Rambler's Top100

В избранное