нет поясняющего текста

@Troll_Face · Регистрация: 26.04.2012

Студворк — интернет-сервис помощи студентам

ввожу много символов, нвожу курсор мыши и ничего не происходит...

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AppEvnts, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    LabeledEdit1: TLabeledEdit;
    ApplicationEvents1: TApplicationEvents;
    procedure ApplicationEvents1ShowHint(var HintStr: String;
      var CanShow: Boolean; var HintInfo: THintInfo);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo);
begin
if (HintInfo.HintControl.ClassName = 'TEdit') or
    (HintInfo.HintControl.ClassName = 'TLabeledEdit') then
    with HintInfo.HintControl as TCustomEdit do
    if (Self.Canvas.TextWidth(Text) > ClientWidth) then begin
      HintStr:=Text;
      ApplicationEvents1.CancelDispatch;
    end;
end;
 
end.

@volvo · 29.11.2012, 15:36

Сообщение от Fatal Error

и ничего не происходит...

Для начала задайся вопросом: а что должно произойти, и при каких условиях OnShowHint вообще отработает. Эти условия у тебя выполняются?

@Troll_Face · 29.11.2012, 15:43 **[ТС]**

Хз, я с книги скопировал

Добавлено через 1 минуту

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

Эти условия у тебя выполняются?

все, понял. на форме не установил в true ShowHint.

@mss · 29.11.2012, 16:06

Сообщение от Fatal Error

на форме не установил в true ShowHint

Этого недостаточно.

Вот так будет правильно:

Код

type
  TFiendCustomEdit = class(StdCtrls.TCustomEdit) end;

procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo);
var
  ed: TFiendCustomEdit;
  canv: TCanvas;
begin
  if (HintInfo.HintControl.ClassName = 'TEdit') or
    (HintInfo.HintControl.ClassName = 'TLabeledEdit') then begin
      ed := TFiendCustomEdit(HintInfo.HintControl);
      canv := TCanvas.Create;
      canv.Handle := GetDC(TWinControl(ed).Handle);
      canv.Font := ed.Font; // обязательно !!
      if (canv.TextWidth(ed.Text) > ed.ClientWidth) then begin
        HintStr:=ed.Text;
//        ApplicationEvents1.CancelDispatch; зачем ?
      end;
      ReleaseDC(ed.Handle, canv.Handle);
      canv.Free;
  end;
end;

@volvo · 29.11.2012, 16:11

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

зачем ?

Затем, чтобы обработанное уже событие дальше не шло:

Note: Call the CancelDispatch method from an OnShowHint event handler to prevent the application from forwarding the event to any other application events objects.

, мало ли, вдруг будет еще один наследник TCustomApplicationEvents в проекте.

@mss · 29.11.2012, 16:16

> Затем, чтобы обработанное уже событие дальше не шло

И пусть себе идет.
Оно тебе мешает ?
Текст хинта ты в обработчике изменил, CanShow остался True, а дальше забота контрола продолжить обработку и вывести хинт с измененным текстом.

@volvo Супер-модератор 32793 / 21133 / 8144 Регистрация: 22.10.2011 Сообщений: 36,393 Записей в блоге: 8
	29.11.2012, 15:36	2
	Сообщение от Fatal Error и ничего не происходит... Для начала задайся вопросом: а что должно произойти, и при каких условиях OnShowHint вообще отработает. Эти условия у тебя выполняются? 0

@Troll_Face 608 / 406 / 8 Регистрация: 26.04.2012 Сообщений: 2,065
	29.11.2012, 15:43 [ТС]	3
	Хз, я с книги скопировал Добавлено через 1 минуту Сообщение от UI Эти условия у тебя выполняются? все, понял. на форме не установил в true ShowHint. 0

@volvo Супер-модератор 32793 / 21133 / 8144 Регистрация: 22.10.2011 Сообщений: 36,393 Записей в блоге: 8
	29.11.2012, 16:11	5
	Сообщение от mss зачем ? Затем, чтобы обработанное уже событие дальше не шло: Note: Call the CancelDispatch method from an OnShowHint event handler to prevent the application from forwarding the event to any other application events objects. , мало ли, вдруг будет еще один наследник TCustomApplicationEvents в проекте. 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	29.11.2012, 16:16	6
	> Затем, чтобы обработанное уже событие дальше не шло И пусть себе идет. Оно тебе мешает ? Текст хинта ты в обработчике изменил, CanShow остался True, а дальше забота контрола продолжить обработку и вывести хинт с измененным текстом. 0

Опции темы