iamehsan56
شنبه 16 شهریور 1387, 14:23 عصر
سلام
من يه كدي گرفتم كه براي resize , move كنترلها به طور Runtime هست
اما روي بعضي از كنترلها كار نمي كنه . از جمله tlabel , timage .
اون بخشايي كه مشكل منه قرمزه .
در واقع تو ControlMouseDown ( كه يه procedure واسهonmousedown مربوط به كنترلهاس )كد زير نوشته شده .
وقتي واسه Tlabel استفاده مي كنم وارد If نمي شه . گويا sender كه label باشه از ونوع twincontrol نيست . به همين خاطر هم نمي شه handle اونو در آورد
if (chkPositionRunTime.Checked) AND (Sender is TWinControl) then
begin
inReposition:=True;
SetCapture(TWinControl(Sender).Handle);
GetCursorPos(oldPos);
end;
اين آدرس لينك اين كده
http://delphi.about.com/library/weekly/code/src110105.zip
لطفا راهنماييم كنيد
من يه كدي گرفتم كه براي resize , move كنترلها به طور Runtime هست
اما روي بعضي از كنترلها كار نمي كنه . از جمله tlabel , timage .
اون بخشايي كه مشكل منه قرمزه .
در واقع تو ControlMouseDown ( كه يه procedure واسهonmousedown مربوط به كنترلهاس )كد زير نوشته شده .
وقتي واسه Tlabel استفاده مي كنم وارد If نمي شه . گويا sender كه label باشه از ونوع twincontrol نيست . به همين خاطر هم نمي شه handle اونو در آورد
if (chkPositionRunTime.Checked) AND (Sender is TWinControl) then
begin
inReposition:=True;
SetCapture(TWinControl(Sender).Handle);
GetCursorPos(oldPos);
end;
اين آدرس لينك اين كده
http://delphi.about.com/library/weekly/code/src110105.zip
لطفا راهنماييم كنيد