Wenn Maus über Rechteck in Image soll Hint erscheinen

[hanse]

Zitat:

Zitat von kiar

erzeuge eine neue Komponente ,die ein rechteck zeichnet.

diese komponente kannst du so oft auf dein image plazieren wie du willst.
mache zwei neue events mit CM_MOUSEENTER und CM_MOUSELEAVE und steuere damit deinen hint.

Mouse event sollte dir weiterhelfen.

raik

danke, ich werde es mal ausprobieren.

[Stanlay Hanks]

Wenn du eh eine Scrollbox nimmst, könntest du genauso gut ein Shape nehmen, oder hab ich da jetzt was falsch verstanden...:gruebel:

Man liest sich, Stanlay :hi:

[hanse]

da hast du was falsch verstanden, die scrollbox benutze ich da das bild im image größer als die form ist.

[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