| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите разобратся с глюком. [D7]

ALex B. ©   (2004-10-06 16:31:00) 

Я уверен что в привидённом коде сделал криво но немогу понять что именно:)

procedure TForm1.RzToolbarButton7MouseMove(Sender: TObject;
 Shift: TShiftState; X, Y: Integer);
var m:integer; ip:pchar;
begin
GetMem(ip, 144);
for m := 0 to Form7.CheckListBox1.count - 1 do  
begin
StrCat(ip,PChar(Form7.CheckListBox1.Items.Strings[m])+#13#10));
Form1.RzToolbarButton7.Hint := ip;
end;

Глюк заключается в следещем. При вывидении хинта в нём перед нужным текстом постоянно выскакивают 3 символа типа '^о{'(постоянно изменяются). Строки в CheckListBox это IP адреса.

---

Digitman   (2004-10-06 16:42:00) [1]

непонятно так же, зачем строить hint-строку и назначать ее св-ву Hint всякий раз, когда обнаружено малейшее движение мыши ..

что, содержимое CheckListBox1 за период между двумя соседними событиями мыши может самопроизвольно измениться ?

---

ssk   (2004-10-06 16:40:00) [2]

а так?

var
 ip: string;
 m: integer;
begin
 ip := '';
 for m := 0 to Form7.CheckListBox1.count - 1 do  
   ip := ip + Form7.CheckListBox1.Items.Strings[m] + #13#10;
 Form1.RzToolbarButton7.Hint := ip;
end;

---

Digitman   (2004-10-06 16:39:00) [3]

непонятно, к чему эти выкрутасы с PChar..

чем string-то не угодил ?

---

Наверх