Forum: Programmieren allgemein
by jacky213,
28. Jun 2019
Habe das ganze nun auf einen Frame gesetzt und schneller voran zu kommen und stehe wieder vor dem selben Problem :D
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...
Forum: Programmieren allgemein
by jacky213,
27. Jun 2019
Vielen Dank DeddyH, das funktioniert sehr gut vielen Dank
Forum: Programmieren allgemein
by jacky213,
27. Jun 2019
Hab das jetzt so versucht, aber es klappt nicht
for I:=0 to frmMain.ComponentCount-1 do
if frmMain.Components is TImage then
if Copy(TImage(frmMain.Components).Name,0,5)='Image' then
begin
TImage(frmMain.Components).OnMouseDown :=
TPanel(TImage(frmMain.Components).Parent).OnMouseDown;
TImage(frmMain.Components).OnMouseMove :=
Forum: Programmieren allgemein
by jacky213,
27. Jun 2019
also ich habe im OnCreate der Form folgenden Code um auch später erzeugte Panels verschieben zu können
procedure TfrmMain.ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
const
minWidth = 20;
minHeight = 20;
var
newPos: TPoint;
frmPoint : TPoint;
Forum: Programmieren allgemein
by jacky213,
27. Jun 2019
Hättest du vielleicht ein kleines Beispiel zur Hand?
Forum: Programmieren allgemein
by jacky213,
27. Jun 2019
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?