Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.032 c
5-1143720622
Untermensch
2006-03-30 16:10
2006.11.26
Событие компонента по событию внутри дочернего потока


2-1162880926
Колобок
2006-11-07 09:28
2006.11.26
видимо прозрачная форма или что-то ещё


1-1160656672
Ш-К
2006-10-12 16:37
2006.11.26
Singleton и интерфейсы


6-1148471974
nopox
2006-05-24 15:59
2006.11.26
Уважаемые подскажите, как с помощью IdUDPClient1 передать на


2-1162984073
Lebedev
2006-11-08 14:07
2006.11.26
Как вывести текст на Panel?