procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
if DBGrid1.Columns[DBGrid1.SelectedIndex].PickList.Count > 0 then
begin
keybd_event(VK_F2,0,0,0);
keybd_event(VK_F2,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_MENU,0,0,0);
keybd_event(VK_DOWN,0,0,0);
keybd_event(VK_DOWN,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_DOWN,0,0,0);
end;
end;
Tai
--
Adriano Santos
Desenvolvedor Delphi desde 1998. Professor e programador PHP.
Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi.
http://www.devmedia.com.br
http://www.clubedelphi.net
http://www.delphitodelphi.blogspot.com
Edison Garcia respondeu:
>
> Ola a todos
> Alguem saberia como fazer para ao entrar em uma coluna de uma DBGrid,
> que possua uma picklist com dados, esta picklist se expanda
> automáticamente, sem que seja necessário precionar nenhum botão ?
> obrigado
>
> Edison Garcia
>
>
> ------------------------------------------------------------------------
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.488 / Virus Database: 269.14.13/1075 - Release Date: 17/10/2007
> 09:38
>
