Форум: "Прочее";
Текущий архив: 2006.11.26;
Скачать: [xml.tar.bz2];
ВнизПомогите найти компонент как 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.04 c