Четверг, 01 Января 1970 г. 03:00
+ в цитатник
Здравствуйте!
Задача заменить стандартную подсказку в ListView1 на свою в виде облака.
Получилось реализовать частично.
Необходимо, чтобы подсказка менялась когда курсор переходит на след. элемент.
[Code]
var
Form1: TForm1;
LV: TStringList;
TTBalloon: HWND;
procedure TForm1.FormCreate(Sender: TObject);
var
Lc:TListColumn;
begin
//Моя подсказка
TTBalloon := CreateWindowEx(WS_EX_TOPMOST, TOOLTIPS_CLASS, nil,
TTS_ALWAYSTIP OR $40,
integer(CW_ ...
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83274
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
