MouseOver

Hejsa

Her er mit problem:

Når jeg fører musen over f.eks. et edit-felt i mit program, har jeg sat den til at ændre en label på formen \"hm\". Det går fint når jeg fører musen over Edit-feltet, labelen på \"hm\" bliver ændret. Men når jeg skal skrive i Edit-feltet kan den jo ikke, det er på grund af at der jo bliver sat focus på \"hm\", og så kan man jo ikke ændre i Edit-feltet. Jeg har prøvet med Form1.SetFocus, men så skifter den bare hvert halve sekund mellem at have focus på \"Form1\" og på \"hm\", efter som musen stadig står på Edit-feltet.
Her er min kode:

function help(helptext : string) : boolean;
begin
hm.Label1.Caption := helptext;
Form1.SetFocus;
end;



procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
help(\'Testhelp\');
end;


mvh

Mikkel