VPF::Как изменить заголовок окна? - Форум программистов

Second

Дата 13.6.2005, 00:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 13.6.2005

Репутация: нет
Всего: нет

сабж.

Poseidon

Дата 13.6.2005, 00:26 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Какого окна? Вот пример, езменяющий заголовок активного (верхнего) окна.

Код


uses
  Windows;

var
  CurrWnd:HWND;
begin
    CurrWnd:=GetForegroundWindow;
    SetWindowText(CurrWnd, 'Твои текст');
end.

Если нужно конкретное окно, еспользуй FindWindow вместо GetForegroundWindow

Это сообщение отредактировал(а) Poseidon - 13.6.2005, 00:30

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

The MASTER

Дата 13.6.2005, 00:33 (ссылка)

(нет голосов)

Загрузка ...

Old master)

Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5

Код


program project1;
uses
  Windows;

var
ScreenDC:hDC; //объявление hDC экрана
okno:HWND; // объявляем переменную указателя на окно
sss:array[0..5] of string; // массив строк, заголовков окна
rndnum:integer; //случайное число
begin
// отсюда и далее идет определение заголовков окна
sss[1]:='Ну ты чувак, крут!';
sss[2]:='Блин. Закурить дай.';
sss[3]:='Тебе не надоело, а?';
sss[4]:='Твой компьютер заражен вирусом! Смешно, правда?';
sss[5]:='На твоем компьютере сейчас 3 человека - я, ты и еще кто-то.';

// далее идет сама прога
randomize; // запускаем генератор случайных чисел
while true do // бесконечный цикл
begin
rndnum:=random(29); //определение случайного числа
Sleep(6000); // ждем 5 секунд
okno:=GetForegroundWindow; // получаем заголовок текущего активного окна
SetWindowText(okno, pchar(sss[rndnum])); // меняем текст заголовка окна на случайный из массива
ScreenDC := GetDC(0); //получаем hDC экрана
Rectangle(ScreenDC,90,90,700,125);
TextOut(ScreenDC, 100, 100,pchar(sss[rndnum]), length(sss[rndnum])); //пишем
ReleaseDC(0,ScreenDC); //освобождаем hDC
end;
end.

Катит?
Добавлено @ 00:34
Это пример с выводом случайного заголовка из массива.

Это сообщение отредактировал(а) The MASTER - 13.6.2005, 00:37

--------------------

http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru

Alex

Дата 13.6.2005, 13:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Second, если тебе нужно изменить заголовок твоей формы, то это делается свойством "Caption" формы

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Guest

Дата 13.6.2005, 22:31 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата(Alex @ 13.6.2005, 13:48)

"Caption" формы

Код


Form1.Caption:='NewName';

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »