| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Application.title
Dib@zol © (2007-08-03 09:45:00)В ВЦЛ присутствует такая харошая фича, к-рую на апи мне пока реализовать не удалось...
А именно: текст который присутствует на кнопке проги в таскбаре, может отличаться от заголовка окна. Как это реализовано.
ЗЫ пробовал смотреть Application.SetTitle, но тока ещё больше запутался :)
Это конечно можно сделать и так: добавить невидимое окно - родитель, а уж все видимые будут его потомками. Но хотелось бы менее зверских способов... Есть такие?
Zagaevskiy (2007-08-03 20:21:00) [1]
> в таскбаре меняется название на заголовок формы
Это плохо! не доработки выясняются после здачи пройэкта...
Царев Евгений (2007-08-03 20:11:00) [2]
> в каком сысле?
в таскбаре меняется название на заголовок формы
Zagaevskiy (2007-08-03 20:07:00) [3]
> рушит
в каком сысле?
Царев Евгений (2007-08-03 20:00:00) [4]
> В чём неудачность - то?
Максимизация/Минимизация рушит
Zagaevskiy (2007-08-03 19:53:00) [5]
> Sorry неудачный пример :(
В чём неудачность - то?
Zagaevskiy (2007-08-03 19:52:00) [6]
> Извиняюсь...
Прощаю...:)
Марш в угол, на горох коленями! :)
Царев Евгений (2007-08-03 19:47:00) [7]Sorry неудачный пример :(
Dib@zol (2007-08-03 19:42:00) [8]> Плагиат!! Это я писал , где-то месяца 1.5 - 2.5 назад.В
> контексте ветки "Кто что думает"
А я на копирайт и не претендую... Отныне и во веки - © Zagaevskiy.
Извиняюсь...
Zagaevskiy (2007-08-03 19:40:00) [9]
> for(;P("\n").R-;P("\ "))for(e=3DC;e-;P("_ "+(*u++/8)%2))P("|
> "+ (*u/4)%2);
Плагиат!! Это я писал , где-то месяца 1.5 - 2.5 назад.В контексте ветки "Кто что думает"
Царев Евгений (2007-08-03 19:19:00) [10]
program PROJECT_NAME;
uses
Windows,
Messages;
{$R *.res}
var
MainWindowHandle: HWND;
Msg: TMsg;
Instance : Longint;
const
WinClassName = '_MAIN_WINDOW_CLASS_';
ProjectName = 'MAIN PROJECT' ;
procedure SetCaption(Caption: String);
function IntToStr(Num : Integer) : String;
begin
Str(Num, result);
end;
begin
Randomize;
SetWindowText(MainWindowHandle,PChar (Caption + IntToStr(Random(5))) );
end;
function WindowProc(HWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
Result:= 0;
case Msg of
WM_APP: ; // не забудь
WM_DESTROY:
begin
PostQuitMessage(0);
Result := 0;
end;
WM_COMMAND:
begin
//
end;
WM_PAINT: // Title у формы будет меняться, но название в таскбаре останется "MAIN PROJECT"
begin
SetCaption('New Name ');
end;
WM_ERASEBKGND:
begin
PaintDesktop(HDC(wParam));
end;
else
Result := DefWindowProc(HWnd, Msg, WParam, LParam);
end;
end;
procedure ProcessMessages;
begin
while GetMessage(Msg, 0, 0, 0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
procedure WinMain;
var
WindowClass: TWndClassEx;
begin
Instance:= GetModuleHandle(nil);
FillChar(WindowClass,SizeOf(TWndClassEx),0);
WindowClass.cbSize:= SizeOf(TWndClassEx);
WindowClass.lpfnWndProc:= @WindowProc;
WindowClass.hInstance := Instance;
WindowClass.lpszMenuName:= nil;
WindowClass.lpszClassName:= WinClassName;
WindowClass.hIcon := LoadIcon(Instance,PChar('MAINICON'));
WindowClass.hCursor:= LoadCursor(0,IDC_ARROW);
WindowClass.hbrBackground:= COLOR_BTNFACE + 1;
if RegisterClassEx(WindowClass) = 0 then
if RegisterClass(PWNDCLASS(@WindowClass.style)^) = 0 then Halt(255);
MainWindowHandle:= CreateWindowEx(0,
WinClassName,
ProjectName,
WS_OVERLAPPEDWINDOW,
Integer(CW_USEDEFAULT),
Integer(CW_USEDEFAULT),
Integer(CW_USEDEFAULT),
Integer(CW_USEDEFAULT),
0,
0,
Instance,
nil);
ShowWindow(MainWindowHandle, SW_SHOWNORMAL);
ProcessMessages;
DestroyWindow(MainWindowHandle);
end;
begin
WinMain;
end.
Anatoly Podgoretsky (2007-08-03 14:25:00) [11]
> вместо того, чтобы ответить на нормальный вопрос, все сразу
> накидываются на автора и начинают хором его лечить типа
> "На кой хрен тебе это надо".
А чтобы знать стоит отвечать или нет.
Yanis (2007-08-03 14:01:00) [12]
> То-то и оно.
Вообще никто никого лечить не собирался поначалу.
Просто пробегающий спросил «зачем?».
SpellCaster (2007-08-03 13:33:00) [13]> [21] \/iKTOR (03.08.07 12:21)
> А оправданно ли использование API или достаочно функций
> VCL автор сам может решить
То-то и оно. А вместо того, чтобы ответить на нормальный вопрос, все сразу накидываются на автора и начинают хором его лечить типа "На кой хрен тебе это надо".
iXT (2007-08-03 13:24:00) [14]> [12] Игорь Шевченко © (03.08.07 10:41)
+1
\/iKTOR (2007-08-03 12:21:00) [15]Ну втавлю свое скромное ИМХО :)
Есть много людей не представляющих как вообще работают программы, Что такое HTML, MySQL, PHP и прочее, это им не мешает жить и радоваться жизни.
Другое дело, что вам что то интересно и вы хотите понять как это работает, а не просто тупо пользоваться готовым, кому просто нужен сайт не вникая в подробности его работы достаточно установить CMS и пользоваться.
Та же ситуация и тут, может оно большинству и не нужно, но ведь интересно знать как это работает, не так ли? А оправданно ли использование API или достаочно функций VCL автор сам может решить.
DVM (2007-08-03 11:34:00) [16]
> А кто-такой этот "народ", на котором есть конструктор сайтов?
www.narod.ru
Плохиш (2007-08-03 11:32:00) [17]
> А для чего изучают HTML, если есть конструктор сайтов на
> народе?
А кто-такой этот "народ", на котором есть конструктор сайтов?
SpellCaster (2007-08-03 11:30:00) [18]> Мне кто-нибудь когда-нибудь объяснит зачем писать в Delphi
> на чистом API?
А для чего изучают HTML, если есть конструктор сайтов на народе? Тоже мне, блажь какая.
Плохиш (2007-08-03 11:15:00) [19]
> Мне кто-нибудь когда-нибудь объяснит зачем писать в Delphi
> на чистом API?
Религия
> Размеры прог сравни. И удивись!
И чего там удивляться? Сравни затраты на разработку и удивись ещё больше..
Я ж говорю - религия.
Игорь Шевченко (2007-08-03 10:51:00) [20]DVM © (03.08.07 10:47) [15]
Отчасти.
| |
Страницы: 