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

Выпуск № 682
от 17.12.2006, 07:05

Вопрос № 66.465

Здравствуйте! Как можно сделать BalloonTips - сообщение, всплывающее в правом нижнем углу. Желательно пример.

Отправлен: 11.12.2006, 08:45 Вопрос задал: Prowler (статус: 1-ый класс) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Кулаков Антон Сергеевич /SandroNec Здравствуйте, Prowler! Скачай библиотеку AlphaControls там это уже все есть, а также еще много чего. --------- Настоящий программист на вопрос - "можешь ли ты это сделать", всегда ответит - "да", а потом подумает как

Ответ отправил: Кулаков Антон Сергеевич /SandroNec (статус: 4-ый класс) Ответ отправлен: 11.12.2006, 08:57

Отвечает: Sarymian Здравствуйте, Prowler! Вот один из способов сделать как надо. Сорри за то что на англ языке. Приложение: { Use the AddSysTrayIcon procedure to add icon to notification area (in FormCreate, for example), and use the ShowBalloonTips procedure when ever you want(of cause must after you called AddSysTrayIcon procedure), and finally call DeleteSysTrayIcon procedure to remove icon from notification area after your using. Add propriety code to the callback message handler. The new feature require IE5 or later. } unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; {new constant definitions} const NIF_INFO = $10; NIF_MESSAGE = 1; NIF_ICON = 2; NOTIFYICON_VERSION = 3; NIF_TIP = 4; NIM_SETVERSION = $00000004; NIM_SETFOCUS = $00000003; NIIF_INFO = $00000001; NIIF_WARNING = $00000002; NIIF_ERROR = $00000003; NIN_BALLOONSHOW = WM_USER + 2; NIN_BALLOONHIDE = WM_USER + 3; NIN_BALLOONTIMEOUT = WM_USER + 4; NIN_BALLOONUSERCLICK = WM_USER + 5; NIN_SELECT = WM_USER + 0; NINF_KEY = $1; NIN_KEYSELECT = NIN_SELECT or NINF_KEY; NIN_BALLOONSHOW = WM_USER + 2; NIN_BALLOONHIDE = WM_USER + 3; NIN_BALLOONTIMEOUT = WM_USER + 4; NIN_BALLOONUSERCLICK = WM_USER + 5; NIN_SELECT = WM_USER + 0; NINF_KEY = $1; NIN_KEYSELECT = NIN_SELECT or NINF_KEY; {other constants can be found in vs.net---vc7's dir: PlatformSDKIncludeShellAPI.h} {define the callback message} TRAY_CALLBACK = WM_USER + $7258; {new NotifyIconData structure definition} type PNewNotifyIconData = ^TNewNotifyIconData; TDUMMYUNIONNAME = record case Integer of 0: (uTimeout: UINT); 1: (uVersion: UINT); end; TNewNotifyIconData = record cbSize: DWORD; Wnd: HWND; uID: UINT; uFlags: UINT; uCallbackMessage: UINT; hIcon: HICON; //Version 5.0 is 128 chars, old ver is 64 chars szTip: array [0..127] of Char; dwState: DWORD; //Version 5.0 dwStateMask: DWORD; //Version 5.0 szInfo: array [0..255] of Char; //Version 5.0 DUMMYUNIONNAME: TDUMMYUNIONNAME; szInfoTitle: array [0..63] of Char; //Version 5.0 dwInfoFlags: DWORD; //Version 5.0 end; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private IconData: TNewNotifyIconData; procedure SysTrayIconMsgHandler(var Msg: TMessage); message TRAY_CALLBACK; procedure AddSysTrayIcon; procedure ShowBalloonTips; procedure DeleteSysTrayIcon; public end; var Form1: TForm1; implementation {$R *.DFM} uses ShellAPI; procedure TForm1.SysTrayIconMsgHandler(var Msg: TMessage); begin case Msg.lParam of WM_MOUSEMOVE:; WM_LBUTTONDOWN:; WM_LBUTTONUP:; WM_LBUTTONDBLCLK:; WM_RBUTTONDOWN:; WM_RBUTTONUP:; WM_RBUTTONDBLCLK:; //followed by the new messages NIN_BALLOONSHOW: {Sent when the balloon is shown} ShowMessage('NIN_BALLOONSHOW'); NIN_BALLOONHIDE: {Sent when the balloon disappears?Rwhen the icon is deleted, for example. This message is not sent if the balloon is dismissed because of a timeout or mouse click by the user. } ShowMessage('NIN_BALLOONHIDE'); NIN_BALLOONTIMEOUT: {Sent when the balloon is dismissed because of a timeout.} ShowMessage('NIN_BALLOONTIMEOUT'); NIN_BALLOONUSERCLICK: {Sent when the balloon is dismissed because the user clicked the mouse. Note: in XP there's Close button on he balloon tips, when click the button, send NIN_BALLOONTIMEOUT message actually.} ShowMessage('NIN_BALLOONUSERCLICK'); end; end; {AddSysTrayIcon procedure add an icon to notification area} procedure TForm1.AddSysTrayIcon; begin IconData.cbSize := SizeOf(IconData); IconData.Wnd := AllocateHWnd(SysTrayIconMsgHandler); {SysTrayIconMsgHandler is then callback message' handler} IconData.uID := 0; IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; IconData.uCallbackMessage := TRAY_CALLBACK; //user defined callback message IconData.hIcon := Application.Icon.Handle; //an Icon's Handle IconData.szTip := 'Please send me email.'; if not Shell_NotifyIcon(NIM_ADD, @IconData) then ShowMessage('add fail'); end; {ShowBalloonTips procedure carry out the new feature: Balloon Tips} procedure TForm1.ShowBalloonTips; var TipInfo, TipTitle: string; begin IconData.cbSize := SizeOf(IconData); IconData.uFlags := NIF_INFO; TipInfo := 'Please send me email.'; strPLCopy(IconData.szInfo, TipInfo, SizeOf(IconData.szInfo) - 1); IconData.DUMMYUNIONNAME.uTimeout := 3000; TipTitle := 'Happyjoe@21cn.com'; strPLCopy(IconData.szInfoTitle, TipTitle, SizeOf(IconData.szInfoTitle) - 1); IconData.dwInfoFlags := NIIF_INFO; //NIIF_ERROR; //NIIF_WARNING; Shell_NotifyIcon(NIM_MODIFY, @IconData); {in my testing, the following code has no use} IconData.DUMMYUNIONNAME.uVersion := NOTIFYICON_VERSION; if not Shell_NotifyIcon(NIM_SETVERSION, @IconData) then ShowMessage('setversion fail'); end; {here's the deletion procedure} procedure TForm1.DeleteSysTrayIcon; begin DeallocateHWnd(IconData.Wnd); if not Shell_NotifyIcon(NIM_DELETE, @IconData) then ShowMessage('delete fail'); end; procedure TForm1.FormCreate(Sender: TObject); begin AddSysTrayIcon; ShowBalloonTips; end; procedure TForm1.FormDestroy(Sender: TObject); begin DeleteSysTrayIcon; end; end.

Ответ отправил: Sarymian (статус: 4-ый класс) Ответ отправлен: 11.12.2006, 11:51

Отвечает: Coupler Здравствуйте, Prowler! Используйте компонент CoolTrayIcon: http://www.delphi.int.ru/files/components/unvisual.000/trayicon.zip С ним идет хороший пример, который позволяет разобраться в возможностях компонента.

Ответ отправил: Coupler (статус: Студент) Ответ отправлен: 12.12.2006, 12:22

Отвечает: Nick_K Здравствуйте, Prowler! Используй компонент CoolTrayIcon. Там есть все. Он бесплатный, без проблем можно найти в инете.

Ответ отправил: Nick_K (статус: 1-ый класс) Ответ отправлен: 13.12.2006, 19:22

Вопрос № 66.466

Здравствуйте, уважаемые эксперты. Я занимаюсь программированием микроконтроллеров ATMEL, но пока новичок в этом. Мне нужны также специфическое программы для работы с внешними устройствами. Delphi оказался самый простой в оформлении прикладных программ. Где можно найти доступный для бесплатного скачивания учебник, где подробно описаны принципы и примеры работы с портами COM, LPT, USB и с файлами. Что еще необходимо знать, для того, чтобы можно было создавать полноценные программы для связи с внешними проектируемыми устройствами? Заранее спасибо.

Отправлен: 11.12.2006, 08:48 Вопрос задал: Минаев Юра (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Gladiator Здравствуйте, Минаев Юра! Агуров П.В. Интерфейс USB. Практика использования и программирования. Там как раз рассматривается пример на основе Atmel. Не помню, где-то в интернете было в электронном виде в формате djvu.

Ответ отправил: Gladiator (статус: 6-ой класс) Ответ отправлен: 11.12.2006, 09:01 Оценка за ответ: 4 Комментарий оценки: Не нашел данную книгу для бесплатного скачивания. Нужен материал по работе с внешними портами компьютера.

Вопрос № 66.500

Привет, ребята! Как изменить шрифт *заголовка окна* формы? Взбрело в голову заказчику ерунда, а я не никогда с этим не сталкивался...

Отправлен: 11.12.2006, 11:43 Вопрос задал: Валерий Кравцов (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 11)

Отвечает: Bob Johnson Здравствуйте, Валерий Кравцов! Пуск - Панель управления - Экран - Закладка "Оформление" - кнопка "Дополнительно" - элемент "Заголовок активного окна" - шрифт - размер... :)

Ответ отправил: Bob Johnson (статус: Академик) Россия, Калуга WWW: Программирование ---- Ответ отправлен: 11.12.2006, 11:55 Оценка за ответ: 1 Комментарий оценки: Вы думаете, я такой себе чайник-идиот, который не умеет пользоваться Windows? Я задал этот вопрос в программистский форум, а не в форум юзеров! Нужно изменить шрифт заголовка окна одной конкретной формы одного конкретного приложения!!! Программно, разумеется. Подозреваю, нужно расставлять ловушки (hooks). Не знаю вот только какие. Потому и попросил совет здесь :)))

Отвечает: PaVeL_Ekt Здравствуйте, Валерий Кравцов! Вот рабочий код, только заголовок формы должен быть пустым: private procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT; (в описании формы) procedure TForm1.WMNCPaint(var Msg: TWMNCPaint); var ACanvas: TCanvas; begin inherited; ACanvas := TCanvas.Create; try ACanvas.Handle := GetWindowDC(Form1.Handle); with ACanvas do begin Brush.Color := clActiveCaption; Font.Name := 'Tahoma'; Font.Size := 8; Font.Color := clred; Font.Style := [fsItalic, fsBold]; TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER), Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height)) / 2) + 1, ' Some Text'); end; finally ReleaseDC(Form1.Handle, ACanvas.Handle); ACanvas.Free; end; end; // теоретически можно не только текст выводить, но и рисовать фигуры, картинки и т.д. УДАЧИ ! --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 8-ой класс) Ответ отправлен: 11.12.2006, 13:03 Оценка за ответ: 5 Комментарий оценки: Спасибо, работает. К сожалению, эта надпись не выводится "прозрачной".... Т.е., на градиентных заголовках (как в Обычной Windows) или всяких там навороченных (типа в WinXP) явно виден "фон" (имеющий цвет clActiveCaption). :(

Отвечает: Nick_K Здравствуйте, Валерий Кравцов! За текст в заголовке формы отвечает сама WINDOWS. Самый простой вариант-нарисовать заголовок вручную, реализовать все необходимые с нем (заголовком) действия и задать тот шрифт, который нужен заказчику.

Ответ отправил: Nick_K (статус: 1-ый класс) Ответ отправлен: 13.12.2006, 19:20

Вопрос № 66.511

Здравствуйте уважаемые Эксперты. Не могу кое что сделать… У меня в программе постоянно выполняется цикл, который посылает команды в COM-порт. Для того чтобы выйти из цикла использую «флаг - WorkFlag », значение которого изменяется при нажатии кнопки на форме. Проблема в том, что когда я двигаю указатель мыши над меню, во время выполнения цикла, то оно выделяеться, но обратно не перерисовываеться, т.е. остаеться «затемненным». Как сделать чтобы меню нормально прорисовывалось? Без всяких торможений. Использую следующие компоненты: ActionManager1 ActionMainMenuBar1 Пробовал убирать Application.ProcessMessages , но тогда форма не реагирует ни на какие нажатия. Приложение: ComPort.Close; ComPort.Open; WorkFlag := TRUE; While WorkFlag <> FALSE do Begin {выполняються какие либо действия} Application.ProcessMessages; ProgressBar1.Position := Channel; {выполняються какие либо действия} End; ComPort.Close;

Отправлен: 11.12.2006, 12:38 Вопрос задал: Пепеляев Александр (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Nick_K Здравствуйте, Пепеляев Александр Павлович! попробуйте записывать данные в порт другим процессом. Или создать DLL и вызывать уже из нее желаемую функцию или процедуру.

Ответ отправил: Nick_K (статус: 1-ый класс) Ответ отправлен: 13.12.2006, 19:15 Оценка за ответ: 4 Комментарий оценки: Спасибо за идею. Ужечал делать с помощью потоков, по-моему неплохо получаеться...

Вопрос № 66.513

Здравствуйте уважаемые Эксперты. Как сделать чтобы при перемещении формы мышкой, при движении по меню не "приостанавливался" работающий цикл в приложении? Приложение: While WorkFlag <> FALSE do Begin {выполняються какие либо действия} Application.ProcessMessages; {выполняються какие либо действия} End;

Отправлен: 11.12.2006, 13:02 Вопрос задал: Пепеляев Александр (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Melamed Здравствуйте, Пепеляев Александр Павлович! Попробуйте организовать этот цикл в отдельном потоке. Но помните о синхронизации потоков. Желаю удачи Если будут вопросы, обращайтесь по внутренней почте.

Ответ отправил: Melamed (статус: 8-ой класс) Ответ отправлен: 12.12.2006, 15:22 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ. Я тоже уже подумал, что наверное только с потоком получиться избавиться от этого. Но я не с потоками никогда не работал, поэтому сейчас пока читаю как это делаеться... если будут вопросы то обращусь.

Вопрос № 66.558

Здраствуйте! Помогите, пожалуйста, решить проблему: Есть чужое окно (Windows окно из DLL,идентификатор окна известен), на нём CheckBox и кнопка. Нужно найти эти компонеты, нажать на CheckBox(чтоб был с галочкой),а потом на кнопку. Пытался сделать с помощью посылки сообщений, но запутался.

Отправлен: 11.12.2006, 19:26 Вопрос задал: Clr (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Кулаков Антон Сергеевич /SandroNec Здравствуйте, Clr! В приложении тестовый код. На форме находятся две кнопки, один checkbox. У кнопки которую надо найти Caption равен 'Далее' у checkbox`а 'Согласен', причем у кнопки подчеркнута буква "Д" (это очень важно) а у чекбокса "С" то есть нам надо уже искать не "Далее" а "&Далее". Дальше все просто, нажимаем на первую кнопку (Button1) и выполняем следующий код: находим окно с заголовком "Form1" (если не находим то выдаем сообщение и выходим из программы), находим чекбокс (если не находим то .......) посылаем ему сообщение что на него нажали, находим кнопку (если не находим то ........), посылаем ей сообщение что ее нажали. Вот пожалуй и весь ответ на ваш вопрос. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; CheckBox1: TCheckBox; Button2: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var wnd, btn, chbx : hwnd; begin wnd := findwindow(nil,'Form1'); if wnd <> 0 then begin chbx := findwindowex(wnd,0,nil,'&Согласен'); if chbx <> 0 then begin sendmessage(chbx,bm_click,0,0); //здесь можно поставить задержку //sleep(1000); btn := findwindowex(wnd,0,nil,'&Далее'); if btn <> 0 then begin sendmessage(btn,bm_click,0,0) end else begin showmessage('Button не найден'); application.Terminate; end; end else begin showmessage('Checkbox не найден'); application.Terminate; end; end else begin showmessage('Окно не найдено'); application.terminate; end; end; end. --------- Настоящий программист на вопрос - "можешь ли ты это сделать", всегда ответит - "да", а потом подумает как

Ответ отправил: Кулаков Антон Сергеевич /SandroNec (статус: 4-ый класс) Ответ отправлен: 12.12.2006, 06:28 Оценка за ответ: 5 Комментарий оценки: Спасибо!

Вопрос № 66.559

Здравствуйте Уважаемые!У меня следующая проблема, в свой программе я вывожу на печать содержимое TMemo с помощью следующей процедуры procedure PrintStrings(Strings: TStrings); var Prn: TextFile; i: word; begin AssignPrn(Prn); try Rewrite(Prn); try for i := 0 to Strings.Count - 1 do writeln(Prn, Strings.Strings[i]); finally CloseFile(Prn); end; except on EInOutError do MessageDlg('Error Printing text.', mtError, [mbOk], 0); end; end; используя следующую команду: PrintStrings(Memo1.Lines); У меня вопрос,можно ли сделать так, что бы печать шла шрифтом Courier.Или может напишите свой код.

Отправлен: 11.12.2006, 19:27 Вопрос задал: Delphi-n (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PaVeL_Ekt Здравствуйте, Delphi-n! Вот Вам рабочий код, в хелпе можете почитать Printing Example поподробнее или просмотреть TPrinter находящийся в QPrinters. Приложение: procedure TForm1.Button1Click(Sender: TObject); var prnt:Tprinter;i:integer; begin prnt:=Tprinter.Create; prnt.BeginDoc; prnt.Canvas.Font.Name:='Comic Sans MS'; prnt.Canvas.Font.Size:=12; prnt.Canvas.TextRect(Rect(200,200,prnt.PageWidth-200,prnt.PageHeight-200), 200, 200, Memo1.Lines.Text); prnt.EndDoc; end; --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 8-ой класс) Ответ отправлен: 12.12.2006, 07:04

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