procedure TForm1.FormPaint(Sender: TObject);
begin
fSQLMon.Show;
fSQLMon.SetBounds(Left + Width + 10, Top, 300, Height);
end;
delphi窗口跟随
最新推荐文章于 2022-11-22 15:05:33 发布
procedure TForm1.FormPaint(Sender: TObject);
begin
fSQLMon.Show;
fSQLMon.SetBounds(Left + Width + 10, Top, 300, Height);
end;