+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تحريك مجموعة عناصر في دلفي وإخفائها (/showthread.php?tid=4571)
كيف تحريك مجموعة عناصر في دلفي وإخفائها - karamofweb - 25-09-2012
السلام عليكم ،
اود ان اعرف ما ادا وجدت طريقة سلسة لتحريك مجموعة عناصر في الدلفي ... مكون او مكتبة ما .
فائق عبارات التقدير مني لكم.
كيف تحريك مجموعة عناصر في دلفي وإخفائها - SMP3 - 25-09-2012
أنت تقصد Drag & Drop أليس كذلك
اذا كان كذلك فألق نظرة على هذا الفيديو
كود :
http://www.youtube.com/watch?v=nebIdYOk-XEأما اذا لم تكن تقصد Drag and Drop (تقصد تحريك الكونترول وقت التشغيل Run Time)
فهذا مثال على السريع :
PHP كود :
var
_X,
_Y: Integer;
_Clicked: Boolean;
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
_X := X;
_X := Y;
_Clicked := True;
SetCapture(Form1.Button1.Handle);
end;
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if _Clicked then
with Sender as TControl do
begin
Left := X - _X + Left;
Top := Y - _X + Top;
end;
end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if _Clicked then
begin
_Clicked := False;
ReleaseCapture ;
end;
end;
كيف تحريك مجموعة عناصر في دلفي وإخفائها - karamofweb - 27-09-2012
شكرا ..اقصد تحريك لبعناصر ... مثال وضعت 3 edits واخفيها بطريقة سلسة بعد ان تمتلا الثلاث