03-03-2014, 08:08 PM
و عليكم السلام ورحمة الله وبركاته
formStyle=fsStayOnTop
باتلوفيق
كود :
المراد هو ان اجعل هذا الفورم يكون في مقدمة الونافذ في برنامجي فقطإقتباس :ابحث عن الحدث خاص بتحريك النافذة أي عندما اقوم بنقل النافذة من مكان إلى آخرى على الشاشة يتم حدث
كود :
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DRAGMOVE = $F012;
begin
if Button = mbLeft then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
end;كود :
http://stackoverflow.com/questions/10921093/move-form-without-border-style