وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/۱٢

Center a form on screen at runtime

procedure CenterForm (AForm: TForm);
var ALeft, ATop: integer;
begin
  ALeft := (Screen.Width - AForm.Width) div 2;
  ATop  := (Screen.Height - AForm.Height) div 2;
  { prevents form being twice repainted! }
  AForm.SetBounds (ALeft, ATop, AForm.Width, AForm.Height);
end;
نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :