Текущий архив: 2006.11.26;
Скачать: CL | DM;

Вниз

Помогите найти компонент как BalloonHint для трея?   Найти похожие ветки 

← →
WhiteBarin ©   (2006-11-08 10:13) [0]

Привер такого компонента FWTrayIcon1.ShowBalloonHint в компоненте FWTrayIcon. Т.е. то сообщение, что появляется в трее. Хотелось бы чтобы такой Hint мог появляться над любым визуальным компонентом.

---

← →
Курдль ©   (2006-11-08 10:32) [1]

Мне кажется, что скоро появится новый класс IT-специалистов "Трэй-программисты". Наверняка их примут в дружеские объятия их браться по разуму 1С-программисты и вэб-программисты.

---

← →
Ketmar ©   (2006-11-08 10:49) [2]

ага. их всех объединяет неимение пользоваться поиском. я буду жесток: JEDI VCL.

---

← →
KilkennyCat ©   (2006-11-08 11:18) [3]

да ерунда. уже и так большинство - диджеи просто. спрашивают, где найти компоненты, потом как их кинуть на форму, потом к каким событиям привязать...  и как диджеи утверждают, что создают программы, они утверждают, что пишут музыку. То есть, наоборот.

---

← →
Rouse_ ©   (2006-11-08 11:20) [4]

Игорь Шевченко приводил как то пример. Вот тут: http://www.delphikingdom.com/asp/viewitem.asp?catalogid=569

А если средствами Windows, то:

unit Unit18;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, XPMan;

type
 TForm18 = class(TForm)
   Edit1: Edit;
   XPManifest1: TXPManifest;
   procedure Edit1KeyPress(Sender: TObject; var Key: Char);
 end;

var
 Form18: TForm18;

implementation

{$R *.dfm}

procedure TForm18Edit1KeyPress(Sender: TObject; var Key: Char);

type
 EditBalloonTip = ^EditBalloonTip;
 EDITBALLOONTIP = record
   cbStruct: DWORD;
   pszTitle: PWChar;
   pszText: PWChar;
   ttiIcon: Integer;
 end;
 EditBalloonTip = EDITBALLOONTIP;

const
 EM_SHOWBALLOONTIP = $1503;
 EM_HIDEBALLOONTIP = $1504;
 TTI_NONE    = 0;
 TTI_INFO    = 1;
 TTI_WARNING = 2;
 TTI_ERROR   = 3;

var
 BaloonTip: EditBalloonTip;
begin
 if not (Key in ["0".."9"]) then
 begin
   Key := #0;
   BaloonTip.cbStruct := SizeOf(EditBalloonTip);
   BaloonTip.pszTitle := "Ошибка ввода";
   BaloonTip.pszText := "Можно вводить только числа.";
   BaloonTip.ttiIcon := TTI_ERROR;
   SendMessageEdit1.Handle, EM_SHOWBALLOONTIP, 0, Integer(@BaloonTip));
 end;
end;

end.

---

Страницы: 1 вся ветка

Текущий архив: 2006.11.26;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.053 c