barbod_ahmadi
دوشنبه 09 خرداد 1384, 03:04 بعد از ظهر
ابتدا خاصیت BorderStyle فرم خود را به bsNone تغییر داده و بعد از دستور زیر استفاده نمایید :
Procedure Tform1 . Form show ( Sender : Tobject ) ;
Var
r: TRect ;
begin
systemParametersInfo ( SPI _ GETWORKAREA , 0 , @r , 0 ) ;
form1 . SetBounds ( r . left , r . top , r . right - r. left , r . bottom – r . top ) ;
end;
Procedure Tform1 . Form show ( Sender : Tobject ) ;
Var
r: TRect ;
begin
systemParametersInfo ( SPI _ GETWORKAREA , 0 , @r , 0 ) ;
form1 . SetBounds ( r . left , r . top , r . right - r. left , r . bottom – r . top ) ;
end;