Flackern bei onshow vehindern

[Hawkeye219]

Hallo,

vielleicht genügen bereits kleine Änderungen an deinem Code:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  i:integer;
begin
  for i:=0 to max-1 do
    if (x>PosArray[i,1]) and (x<PosArray[i,3]) and (y>PosArray[i,2]) and (y<PosArray[i,4]) then begin
      hintid:=PosArray[i,0];
      Form4.Left:=X+200;
      if Y<150 then
        Form4.Top:=Y+150
      else if clientheight-Y<170 then
        Form4.top:=Y-170
      else Form4.top:=Y;
      Form4.Show;
      Exit;
    end;
  Form4.Hide;
end;

Gruß Hawkeye