Как сделать подсказку
Автор Николай Блажко задал вопрос в разделе Другие языки и технологии
как сделать вызвать всплывающую подсказку в delphi как в квипе и получил лучший ответ
Ответ от Ru-admin[гуру]
Программная установка текста всплывающей подсказки для кнопки Button1:
Button1.Hint:='Нажми на меня, и ты узнаешь, что ты наделал';
Программная активация подсказки для кнопки Button1 (только дает возможность всплывающей подсказке высвечиваться, а не выводит ее на экран! )
Button1.ShowHint:=true;
Теперь поговорим про цвет фона подсказки и про некоторые другие параметры.
Цвет фона всплывающей подсказки для всего приложения меняется очень легко.
Application.HintColor:=ЦВЕТ;
Цвет задается через зарезервированные константы или цифровым кодом. Например, белый цвет может быть задан с помощью константы clWhite, с помощью шестнадцатеричного представления $00FFFFFF, или обычным, привычным нам десятичным числом 16777215. Ниже представлена таблица цветов, которые определены как стандартные константы цветов. Константа
Цвет
clAqua
clBlack
--------------------------
2 вариант для красочной подсказки можешь в фотошопе на белом фоне нарисовать форму подсказки потом используя эту функцию она поуберает весь белый фон останется красивая форма
function BitmapToRegion(Bitmap: TBitmap; TransColor: TColor): HRGN;
var X, Y: Integer;
XStart: Integer;
begin
Result := 0;
with Bitmap do
for Y := 0 to Height - 1 do
begin
X := 0;
while X < Width do
begin
// Ïðîïóñêàåì ïðîçðà÷íûå òî÷êè
while (X < Width) and (Canvas.Pixels[X, Y] = TransColor) do
Inc(X);
if X >= Width then
Break;
XStart := X;
// Ïðîïóñêàåì íåïðîçðà÷íûå òî÷êè
while (X < Width) and (Canvas.Pixels[X, Y] <> TransColor) do
Inc(X);
// Ñîçäà¸ì íîâûé ïðÿìîóãîëüíûé ðåãèîí è äîáàâëÿåì åãî ê
// ðåãèîíó âñåé êàðòèíêè
if Result = 0 then
Result := CreateRectRgn(XStart, Y, X, Y + 1)
else
CombineRgn(Result, Result,
CreateRectRgn(XStart, Y, X, Y + 1), RGN_OR);
end;
end;
end;