Вопрос № 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;
Наверно так.
--------- Настоящий программист на вопрос - "можешь ли ты это сделать", всегда ответит - "да", а потом подумает как
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