OnMouseDown and Parent Weiterleiten

[jacky213]

Ich kann alle Panels mit einem Bestimmten Namen während der Laufzeit verschrieben solange eine Checkbox Checked ist. Nun habe ich aber auf einigen dieser Panels ein TImage mit dem Align auf alClient, sodass das TImage das komplette Panel bedeckt.

Wie schaffe ich es, dass ich den OnMouseDown Event des Panels auslöse wenn ich den OnMouseDown auf dem TImage auslöse?

[DeddyH]

Einfach den Händler des Panels zuweisen?

[jacky213]

Hättest du vielleicht ein kleines Beispiel zur Hand?

[DeddyH]

Image anklicken, auf dem „Ereignisse“-Reiter OnMouseDown auswählen und da denselben Handler nehmen, den Du auch dem dazugehörigen Panel zugewiesen hast.

[jacky213]

also ich habe im OnCreate der Form folgenden Code um auch später erzeugte Panels verschieben zu können

Delphi-Quellcode:

procedure TfrmMain.ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
const
minWidth = 20;
minHeight = 20;
var
newPos: TPoint;
frmPoint : TPoint;
begin
if frmMain.inReposition then
begin
with TWinControl(Sender) do
begin
GetCursorPos(newPos);
if ssShift in Shift then
begin //resize
Screen.Cursor := crSizeNWSE;
frmPoint := ScreenToClient(Mouse.CursorPos);
if frmPoint.X > minWidth then
Width := frmPoint.X;
if frmPoint.Y > minHeight then
Height := frmPoint.Y;
end
else //move
begin
Screen.Cursor := crSize;
Left := Left - frmMain.oldPos.X + newPos.X;
Top := Top - frmMain.oldPos.Y + newPos.Y;
frmMain.oldPos := newPos;
end;
end;
end;
end; (*ControlMouseMove*)

procedure TfrmMain.ControlMouseUp(
Sender: TObject;
Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if frmMain.inReposition then
begin
Screen.Cursor := crDefault;
ReleaseCapture;
frmMain.inReposition := False;
end;
end; (*ControlMouseUp*)

procedure TfrmMain.ControlMouseDown(
Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
if (MoveControls=true) AND
(Sender is TWinControl) then
   begin
   frmMain.inReposition:=True;
   SetCapture(TWinControl(Sender).Handle);
   GetCursorPos(frmMain.oldPos);
   end;
end;

Procedure CM;
var
i : integer;
begin
    for I:=0 to frmMain.ComponentCount-1 do
    if frmMain.Components[I] is TPanel then
    if Copy(TPanel(frmMain.Components[I]).Name,0,4)='PanCon' then
       begin
       TPanel(frmMain.Components[I]).OnMouseDown := frmMain.ControlMouseDown;
       TPanel(frmMain.Components[I]).OnMouseMove := frmMain.ControlMouseMove;
       TPanel(frmMain.Components[I]).OnMouseUp   := frmMain.ControlMouseUp;
       end;
end;

auf den Panels befinden sich auch die TImages

[DeddyH]

Dann schau doch einfach nach, ob der Parent des jeweiligen Images ein TPanel ist und rufe in dem Fall dessen Handler auf, wobei Du den Sender-Parameter auf das Panel selbst setzt.

[jziersch]

Zitat von jacky213:

Wie schaffe ich es, dass ich den OnMouseDown Event des Panels auslöse wenn ich den OnMouseDown auf dem TImage auslöse?

Wenn bei einem Control "Enabled" = false ist, wird es bei der Mausabfrage ignoriert. Vielleicht hilft dies ja bereits.

[jacky213]

Habe das ganze nun auf einen Frame gesetzt und schneller voran zu kommen und stehe wieder vor dem selben Problem

Nur heißt es jetzt wie ich den OnMouseDown an den Frame weitergebe. Wenn ich das auf dem selben weg wie mit dem Panel anstellen möchte, dann sagt er mir das es sich nicht um ein WinControl handelt (soweit ich mich erinnere).

Der Vollständigkeit halber, hier gleich meine Lösung:

FrameMouseDown(self,Button,Shift,x,y);