[kobz]

Привет всем. разбираюсь с подсказкой BalloonHint. Пытаюсь сделать похожее (см. вложение). Нашел в инете кое-какой код, который переделал под себя.

Код:

Procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  point: TPoint;
begin
  if Key = '*' then
  begin
    BalloonHint1.Description := 'бла-бла-бла';
    Point.X := Edit1.Width div 2;
    Point.Y := 0;
    BalloonHint1.ShowHint(Edit1.ClientToScreen(point));
  end;
end;

Но почему-то хинт выскакивает не под Edit-ом, а в месте где находится курсор. Как можно переделать строку:

Код:

 BalloonHint1.ShowHint(Edit1.ClientToScreen(point));

что бы хинт изображался как на рис. и возможно ли такое стандартным хинтом? Спасибо.

[Kailon]

А у меня все правильно отображается

Код:

var
  Point: TPoint;
begin
  if Key in ['*', '/', '\', '?', '"', '<', '>'] then
  with BalloonHint1 do
  begin
    Key := #0;
    Delay := 0;
    HideAfter := 1500;
    Title := 'Эти символы вводить запрещено:';
    Description := '*, /, \, ", ?, |';
    Point.X := Edit1.Width div 2;
    Point.Y := Edit1.Height;
    ShowHint(Edit1.ClientToScreen(Point));
  end;

[kobz]

Ничего не понимаю... Попробовал еще раз, все так же... Нажимаю на клавишу, курсор мыши допустим находится в правом верхнем углу монитора, там и выскакивает хинт. У меня Delphi 2009. А у вас?

[Kailon]

У меня Embarcadero RAD Studio 2010. Выложи свой проект полностью.

[kobz]

Проекта как такового нет, кинул на форму BalloonHint, Edit и попробовал их связать. Вот код:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    BalloonHint1: TBalloonHint;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  Point: TPoint;
begin
  if Key = '*'  then
  begin
    Key := #0;
   BalloonHint1.Description := 'Имя файла не должно содержать следующих знаков:'+№13+'   *, /, \, ", ?, |       ' ;
    Point.X := Edit1.Width div 2;
    Point.Y := 0;
    BalloonHint1.ShowHint(Edit1.ClientToScreen(Point));
  end;
end.

Delay и HideAfter я настраивал в инспекторе. Так, что "ломаться" нечему и все должно работать правильно. Но увы...

[robt]

для балона в эдите никакой TBalloonHint вообще не нужен

[cotseec]

остаются еще координаты вывода, если сравнить

Сообщение от Kailon

Код:

...
    Point.X := Edit1.Width div 2;
    Point.Y := Edit1.Height;
...

и

Сообщение от kobz

Код:

...
    Point.X := Edit1.Width div 2;
    Point.Y := 0;
...

Y==0 - и есть самый верх монитора

[kobz]

для балона в эдите никакой TBalloonHint вообще не нужен

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

остаются еще координаты вывода, если сравнить

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

[robt]

Сообщение от kobz

Мистика какая-то...

это похоже на то, что тип балона не выставлен как "TRACKTRACKPOSITION" поэтому и всплывает где курсор

[kobz]

Это что за "зверь" такой и как это можно исправить, не подскажешь?

[Kailon]

Дай исходник. Попробую собрать у себя и посмотрим что получиться...

[kobz]

Даю исходник...

[M.A.D.M.A.N.]

Где-то был исходник как на АПИ балун у эдита показывать.

[Kailon]

Сообщение от kobz

Даю исходник...

Сначала запустил твой .exe, подсказка там где курсор. Затем собрал твой проект, не меняя в коде совершенно ничего, и все нормально стало... Даже не знаю что сказать.

[kobz]

Спасибо вам огромное, по крайней мере мы выяснили, что код рабочий и им могут пользоваться все желающие, при наличии конечно нормальной оболочки. Теперь буду все версии и сборки проверять балуном . Итого получается три варианта: создать свой балун и забить на стандартный, или снести старую и установить новую оболочку, или дождаться ответа на свой вопрос от robt-а. Спасибо Кailon за участие и трату своего времени. Блин, а если у меня еще что-нибудь вылезет!? С семеркой проблем таких не было...