TImage um Eigenschaften und Ereignissen erweitern

[marabu]

Du kannst einem oder mehreren Images jetzt das gewünschte Verhalten beibringen. Da wo du keine Routine an OnMouseEnter() zuweist, da verhält sich das Image dann so wie gehabt. Jetzt klarer?

Delphi-Quellcode:

procedure TMainForm.ImageMouseEnter(Sender: TObject);
begin
  // hier dein Code
end;

procedure TMainForm.ButtonClick(Sender: TObject);
var
  bi: TBetterImage;
begin
  bi := TBetterImage.Create(self);
  bi.OnMouseEnter := ImageMouseEnter;
end;

marabu