TImage.Parent.Perform sendet Message unterschiedlich

[KiDn]

(Delphi Version XE3)


Hallo Delphigemeinde,

mir ist ein komisches Verhalten der TImage-komponente aufgefallen. Und zwar wollte ich in den Events OnClick, OnMouseDown und OnMouseUp eine Message an das übergeordnete Formular senden via TImage(Sender).Perform. Doch leider wird nur im OnClick die Message an das übergeordnete Formular gesendet. In den anderen beiden Prozeduren zu den Ereignissen wird lediglich eine Message an das Objekt von TImage selbst gesendet.

Hier mein Beispielquellcode:

Delphi-Quellcode:

procedure TFormTest.OnClick_Handle(Sender: TObject);
begin
  if Sender is TForm then
  begin
    if Sender = self then
      Beep;
  end;
  if Sender is TImage then
  begin
    if Sender = Image then
    begin
      // Bei den folgenden beiden Aufrufen wird die Message vom Formular entgegengenommen, wie ich es wollte.
      // Es werden das OnMouseDown, OnClick, und OnMouseUp-Ereignis des Formulares aufgerufen.
      TImage(Sender).Parent.Perform(WM_LBUTTONDOWN,MK_LBUTTON,0);
      TImage(Sender).Parent.Perform(WM_LBUTTONUP,MK_LBUTTON,0);
    end;
  end;
end;

procedure TFormTest.OnMouseDown_Handle(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Sender is TForm then
  begin
    if Sender = self then
      Beep;
  end;
  if Sender is TImage then
  begin
    if Sender = Image then
    begin
      // Bei dem folgenden Aufruf wird die Message vom Image entgegengenommen.
      // Es entsteht eine Endlosschleife.
      Image.Parent.Perform(WM_LBUTTONDOWN,MK_LBUTTON,0);
    end;
  end;
end;

procedure TFormTest.OnMouseUp_Handle(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Sender is TForm then
  begin
    if Sender = self then
      Beep;
  end;
  if Sender is TImage then
  begin
    if Sender = Image then
    begin
      // Bei dem folgenden Aufruf wird die Message vom Image entgegengenommen.
      // Es entsteht eine Endlosschleife.
      Image.Parent.Perform(WM_LBUTTONUP,MK_LBUTTON,0);
    end;
  end;
end;

Ich habe einmal das TImage gegen einen Button ausgetausch. Dieser funktioniert einwandfrei. Wisst ihr, wieso dieses Verhalten auftritt?


MfG,
KiDn