Wenn Maus über Rechteck in Image soll Hint erscheinen

[Keldorn]

Hallo

könntest das mal so probieren:

Delphi-Quellcode:

...
  private
    { Private-Deklarationen }
    rect1,rect2,rect3:Trect;
...

procedure TForm1.FormCreate(Sender: TObject);
begin
  rect1:=rect(10,10,50,50);
  rect2:=rect(100,100,150,150);
  rect3:=rect(200,200,250,250);
  Image1.Canvas.Brush.Color:=clblue;
  image1.Canvas.FillRect(rect1);
  image1.Canvas.FillRect(rect2);
  image1.Canvas.FillRect(rect3);
  Image1.ShowHint:=true;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var newhint:string;
begin
  //neuen hint ermitteln
  newhint:='';
  if PtInRect(rect1,point(x,y)) then newhint:='Rechteck1'
   else
    if PtInRect(rect2,point(x,y)) then newhint:='Rechteck2'
     else
      if PtInRect(rect3,point(x,y)) then newhint:='Rechteck3';
  //wenn anderer hinttext -> neuen hint setzen
  if newhint<>image1.Hint then
    begin
      Image1.Hint:=newhint;
      Application.CancelHint;
    end;
end;

Mfg Frank