Я тут прерву вашу академичность таким дурацким вопросом. А как вывести

Question

Delphi & Lazarus

Евгений

Я тут прерву вашу академичность таким дурацким вопросом. А как вывести

такой хинт у TEdit или другого компонента, самому?

#lazarus #programming #russian

0

24.10.2024

4 ответов

4 просмотра

Евгений Автор вопроса

Александр (Rouse_) Багель
Балунхзинт для эдита? Оно только для винды работат...

Ну и ладно. А то полазил по исходникам lcl и не могу найти где он возбуждается.

0

1 месяц назад

Александр (Rouse_) Багель

procedure TGSAbstractCommonControl.ShowWrongInputError; type PEditBalloonTip = ^TEditBalloonTip; TEditBalloonTip = record cbStruct: DWORD; pszTitle: PWChar; pszText: PWChar; ttiIcon: Integer; end; const EM_SHOWBALLOONTIP = $1503; EM_HIDEBALLOONTIP = $1504; TTI_NONE = 0; TTI_INFO = 1; TTI_WARNING = 2; TTI_ERROR = 3; var BaloonTip: TEditBalloonTip; begin BaloonTip.cbStruct := SizeOf(TEditBalloonTip); BaloonTip.pszTitle := 'Имя файла не должно содержать следующих знаков:'; BaloonTip.pszText := '\ / : * ? " < > |'; BaloonTip.ttiIcon := TTI_ERROR; SendMessage(FInplaceEdit.Handle, EM_SHOWBALLOONTIP, 0, LPARAM(@BaloonTip)); end;

0

1 месяц назад

Hemul GM

Александр (Rouse_) Багель
procedure TGSAbstractCommonControl.ShowWrongInputE...

Возьму-ка для FMX)

0

1 месяц назад