for i := 0 to DBGrid.Columns.Count-1 do DbGrid.Columns[i].Width := Round(TDbGrid.Columns[i].Width*(Screen.Width/800));
800 seria a resolução em que foi desenvolvido o aplicativo __________________________________________________ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/