| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

СергейКнязев ©   (2002-08-16 08:55:00) 

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

---

СергейКнязев   (2002-08-16 14:41:00) [1]

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

---

Гас   (2002-08-16 14:20:00) [2]

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

---

Anatoly Podgoretsky   (2002-08-16 13:00:00) [3]

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

---

Skier   (2002-08-16 12:46:00) [4]

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

Ну вот как-то так :
(положи на форму 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.


---

gek   (2002-08-16 12:33:00) [5]

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

---

СергейКнязев   (2002-08-16 12:26:00) [6]

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

---

Leran2002   (2002-08-16 12:13:00) [7]

> Skier © (16.08.02 12:05)


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

---

Skier   (2002-08-16 12:05:00) [8]

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

---

СергейКнязев   (2002-08-16 12:01:00) [9]

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

---

Olorin   (2002-08-16 10:25:00) [10]

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

---

СергейКнязев   (2002-08-16 10:23:00) [11]

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

---

Ekaterina   (2002-08-16 10:04:00) [12]

THintWindow или HintWindowClass

---

Наверх