06-01-2009, 11:40 AM
إضافة شيء صغير...
ثم أكتب هذا الكود في حدث عند النقر على المكون Shape
... وبالتالي تحصل على نموذج إطار (فورم) على شكل دائري يتحرك باستخدام الماوس.
ثم أكتب هذا الكود في حدث عند النقر على المكون Shape
كود :
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND, $F012, 0);
end;... وبالتالي تحصل على نموذج إطار (فورم) على شكل دائري يتحرك باستخدام الماوس.