Скачать: CL | DM;

Помогите разобратся с глюком.   Найти похожие ветки 

← →
ALex B.   (2004-10-06 16:31) [0]

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

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:39) [1]

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

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

---

← →
ssk ©   (2004-10-06 16:40) [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:42) [3]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c