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/ 

Responder a