سلام
من يك برنامه نوشته ام كه با آن مي توانم كامپوننتهاي قابل ديدن (در مثال كامپوننت Image است)را روي فرم در RUN TIME جابه جا كرد (در ATTACHMENT خود مثال كامل دلفي آن موجود است ).
حال كسي از دوستان مي تواند آنرا تغيير دهد كه كامپوننت Image را در RUN TIME تغيير سايز دهد؟
و براي راحتي كار دوستان Enent ها را هم اينجا نشان مي دهم:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
downX := X;
downY := Y;
dragging := TRue;
TMoveCracker(Sender).MouseCapture := True;
end;
//////////////////////////////////////////////////////////////////////
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If dragging Then
with Sender As TControl Do
Begin
Left := X-downX+Left;
Top := Y-downY+Top;
End;
end;
///////////////////////////////////////////////////////////////////////////
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
If dragging then
Begin
dragging := False;
TMoveCracker(Sender).MouseCapture := False;
End;
end;
پاسخ با نقل قول