VPF::[Delphi] Всплывающие Hint' ы по нажатию клавиш

Hunter-07

Дата 24.6.2009, 18:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 1.11.2007
Где: Россия

Репутация: 1
Всего: 1

Здраствуйте!

У меня на форме есть поле Edit1 в котором можно вводить только Русские буквы. Как вывести подсказку при вводе других символов, не подводя курсор?

Код


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in [#13,#8,'а'..'я','А'..'Я']) then 
Key := #0;

THandle

Дата 24.6.2009, 20:02 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Можно попробовать сделать через THintWindow.

Код



unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  HintWindow: THintWindow;
  
implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const
  MsgText = 'Показываем не то что надо';
var
  Rect: TRect;
begin
  if not (Key in [#13, #8, 'à'..'ÿ', 'À'..'ß']) then
  begin
    Key := #0;
    if not (Sender is TControl) then
      if TControl(Sender).Parent = Nil then
        Exit;
    Rect := HintWindow.CalcHintRect(Screen.Width, MsgText, nil);
    with TControl(Sender).Parent.ClientToScreen(TControl(Sender).BoundsRect.BottomRight) do
      OffsetRect(Rect, X, Y);
    HintWindow.ActivateHint(Rect, MsgText);
  end
  else
    if HintWindow.Showing then
      HintWindow.Hide;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  HintWindow := THintWindow.Create(Self);
end;

end.

Вообще тема больше подходит для Delphi раздела нежели для центра помощи, ИМХО.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »