设置窗体在屏幕中的位置

//设置窗体在屏幕中的位置 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  try
    if (Edit1.Text<>'') and (Edit2.Text<>'') then
      if (StrtoInt(Edit1.Text)<800) and (StrtoInt(Edit2.Text)<600) then
      begin
        Form1.Left := strtoint(Edit1.Text);
        Form1.Top := strtoint(Edit2.Text);
      end;
  except
  end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not( key in ['0'..'9']) then
    key:=#0;
end;

通过 Wiz 发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/05/26/2518896.html