Как изнасиловать ХИНТ?

← →
СергейКнязев © (2002-08-16 08:55) [0]

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

← →
Ekaterina © (2002-08-16 10:04) [1]

THintWindow или HintWindowClass

← →
СергейКнязев © (2002-08-16 10:23) [2]

И чего? Катя, а по-конкретней нельзя плиз.

← →
Olorin © (2002-08-16 10:25) [3]

1. Поиск по кофе
2. В факах
3. И наконец в готовых кусках кода
И вас постигнет удача :-)

← →
СергейКнязев © (2002-08-16 12:01) [4]

Ну блин, Olorin, ты на этом сайте че семафором работаешь.
Это любой знает, только сначала сам попробуй, а потом советуй.

← →
Skier © (2002-08-16 12:05) [5]

>СергейКнязев
А зачем всё это ? Цель какая ??

← →
Leran2002 © (2002-08-16 12:13) [6]

> Skier © (16.08.02 12:05)

> изнасиловать ХИНТ

← →
СергейКнязев © (2002-08-16 12:26) [7]

Skier. Нужно, чтобы на значочке в трее по моему требованию (например, по тайиеру) появлялся хинт. Ну в трее это я так для примера, мне бы принцип в целом, а желательно в частном и в общем.
Спасибо.

← →
gek © (2002-08-16 12:33) [8]

Hint - то же самое окно

>СергейКнязев

Ну вот как-то так :
(положи на форму 2 таймера ShowTimer и HideTimer)

предустановки :
ShowTimer.Enabled := True;
HideTimer.Enabled := False;
+ интервалы времени...

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) ShowTimer: TTimer; HideTimer: TTimer; Button1: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure ShowTimerTimer(Sender: TObject); procedure HideTimerTimer(Sender: TObject); private FHintWindow : THintWindow; public end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin FHintWindow := THintWindow.Create(Self); end; procedure TForm1.FormDestroy(Sender: TObject); begin FHintWindow.Free; end; procedure TForm1.ShowTimerTimer(Sender: TObject); begin FHintWindow.Caption := "required text"; FHintWindow.Left := 10;//твои координаты ( экранные) FHintWindow.Top := 10;//твои координаты ( экранные) ShowWindow(FHintWindow.Handle, SW_SHOW); ShowTimer.Enabled := False; HideTimer.Enabled := not ShowTimer.Enabled; end; procedure TForm1.HideTimerTimer(Sender: TObject); begin ShowWindow(FHintWindow.Handle, SW_HIDE); HideTimer.Enabled := False; ShowTimer.Enabled := not ShowTimer.Enabled; end; end.

А хинт ли будет изнасиловаться, мне почему то кажется пользователь

← →
Гас (2002-08-16 14:20) [11]

:) Может лучше создавать окошко, похожее на хинт..

Skier Thanks! Попробую.
Anatoly Podgoretsky Это делается для их блага. У меня их двадцать человек и каждому звонить в падлу. Я лучше по сети пущу вызов и пусть у них хинт появляется, а окошко (для Гас) уберет фокус и займет место.
В общем спасибо всем, если чего напишу.

Как изнасиловать ХИНТ? Найти похожие ветки