Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Вниз

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

← →
СергейКнязев   (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 - то же самое окно

---

← →
Skier   (2002-08-16 12:46) [9]

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

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


---

← →
Anatoly Podgoretsky   (2002-08-16 13:00) [10]

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

---

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

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

---

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

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

---

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

Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.007 c