Текущий архив: 2003.02.17;
Скачать: CL | DM;

Вниз

Как сделать свой hint!!!!!!   Найти похожие ветки 

← →
CRACKISH   (2003-01-29 08:36) [0]

Люди вот задаю для вас смешной вопрос! но!!!!!!!!! как сделать свой hint! выхоть только самое главное покажите!!!!!!!! Спасибо!!!!!!!

---

← →
Anatoly Podgoretsky   (2003-01-29 09:45) [1]

.hint := "My hint";

---

← →
Юрий Зотов   (2003-01-29 09:49) [2]

См. в справке:
HintWindowClass variable.

Например, сделайте пустую форму TForm2, а в OnCreate главной формы TForm1 напишите: HintWindowClass := TForm2;

Только не забудьте в unit1 добавить:
uses
..., unit2;

Результат, конечно, будет ужасен, но он будет. Ваша задача - превратить TForm2 во что-то приличное.

---

← →
malkolinge   (2003-01-29 13:51) [3]

А еще лучше разориться на Стива Тексейру и Ксавье Пачеко :)))) сколько вопросов сразу отпадент

---

← →
CRACKISH   (2003-01-31 08:00) [4]

Спасибо!!!!

---

← →
CRACKISH   (2003-02-05 07:55) [5]

Юрий Зотов ! че то твой пример не работает????? а идея отличная!!!!! спасибо!!!!!!!

---

← →
Юрий Зотов   (2003-02-05 08:12) [6]

Да, пример не работает, здесь я дал маху, признаюсь. Он не работает потому, что класс хинта должен быть потомком THintWindow, а не TForm. Значит, Ваша задача - написать такого потомка и при старте программы переопределить HintWindowClass.

А идея, конечно, отличная. Жаль только, что не моя, а Borland"а.
:о)

---

← →
CRACKISH   (2003-02-06 07:45) [7]

спасибо!!!!!!!!!:)

---

← →
CRACKISH   (2003-02-07 08:12) [8]

Юрий Зотов! Код Delphi вопринемается!!! но серавно hint станлартный! вот че я делал!
1.В uses дописал unit2
2. Дописал
type
TForm2 = class (THintWindow)
end;
3. А в oncreate то что вы мне сказали!!!!!!!
Как быть????????

---

← →
Юрий Зотов   (2003-02-07 09:10) [9]

А почему хинт должен измениться? Ваш TForm2 воспринят нормально, но ведь он пока еще ничем не отличается от стандартного THintWindow - поэтому и хинт пока еще стандартный.

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

---

← →
ййй   (2003-02-07 09:25) [10]

На скорую руку но работает

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm2 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
{ Private declarations }

{ Public declarations }
end;

TMyHint = Class ( THintWindow)
public
constructor Create(AOwner: TComponent); override;
procedure Paint ; Override;
procedure ActivateHint(Rect: TRect; const AHint: string); Override;
end;
var
Form2: TForm2;

implementation

{$R *.dfm}

constructor TMyHint.Create(AOwner: TComponent);
begin
inherited;
Form2 := TForm2.Create(self);
Form2.Show;
end;

procedure TMyHint.Paint;
var Cp : TPoint;
begin
GetCursorPos(Cp);
Form2.Top := Cp.Y + 2;
Form2.Left := Cp.X + 2;
Form2.Caption := Caption;
Form2.Timer1.Enabled := false;
Form2.Timer1.Enabled := true;
Form2.Show;
end;

procedure TMyHint.ActivateHint(Rect: TRect; const AHint: string);
begin
Caption := AHint;
Paint;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
Close;
end;

end.


---

← →
CRACKISH   (2003-02-08 08:25) [11]

Юрий Зотов! втомто и дело что я вторую форму изменл (цвет и рисунок впихнул!!!!!)!! А hint серавно стандартный!

---

← →
Юрий Зотов   (2003-02-08 08:32) [12]

Значит, так изменил. Код - в студию, что ж тут еще скажешь.

---

← →
smok_er   (2003-02-08 11:27) [13]

Уважаемые, не понимаю, зачем все это надо. CRACKISH, сходи на торри, там есть фриварные компоненты с исходниками, и разбирайся. Имхо это будет лучший вариант.

---

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

Текущий архив: 2003.02.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c