25-09-2012, 05:42 PM
25-09-2012, 09:28 PM
أنت تقصد Drag & Drop أليس كذلك
اذا كان كذلك فألق نظرة على هذا الفيديو
أما اذا لم تكن تقصد Drag and Drop (تقصد تحريك الكونترول وقت التشغيل Run Time)
فهذا مثال على السريع :
اذا كان كذلك فألق نظرة على هذا الفيديو
كود :
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;
27-09-2012, 01:44 AM
شكرا ..اقصد تحريك لبعناصر ... مثال وضعت 3 edits واخفيها بطريقة سلسة بعد ان تمتلا الثلاث