[delphi-br] Dica ComboBox num String Grid

[Jose Newton Araujo]

Pessoal, preciso de um help

Tem como colocar um Combo Box num string grid e fazer com que a célula
automaticamente assuma o valor definido no combo ?

Jose Newton

 

 

 



[As partes desta mensagem que não continham texto foram removidas]

RE: [delphi-br] Dica ComboBox num String Grid

[Rubem Nascimento da Rocha]

Quem procura,acha!

 

http://www.swissdelphicenter.ch/en/showcode.php?id=406

 

Sds.

 


To: delphi-br@yahoogrupos.com.br
From: jose.new...@jnewton.com.br
Date: Wed, 22 Jul 2009 10:09:44 -0300
Subject: [delphi-br] Dica ComboBox num String Grid

  



Pessoal, preciso de um help

Tem como colocar um Combo Box num string grid e fazer com que a célula
automaticamente assuma o valor definido no combo ?

Jose Newton



. 







_
Com o Windows Live, você pode organizar, editar e compartilhar suas fotos.
http://www.microsoft.com/brasil/windows/windowslive/products/photo-gallery-edit.aspx

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Dica ComboBox num String Grid

[fabio giro]

Adapte as suas necessidades.
 
colocar 1 combobox 1 um stringgrid;
OBS: depois que colocar o combobox e o stringgrid, clicar com o botão direito 
sobre o combobox e clicar em Bring to Front.
procedure TForm1.FormCreate(Sender: TObject);
begin
  { Ajusta a altura do ComboBox com a altura da linha do StringGrid}
  StringGrid1.DefaultRowHeight := ComboBox1.Height;
  {Esconde o ComboBox}
  ComboBox1.Visible := False;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row] := 
ComboBox1.Items[ComboBox1.ItemIndex];
  ComboBox1.Visible := False;
  StringGrid1.SetFocus;
end;
procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
  StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]
  := ComboBox1.Items[ComboBox1.ItemIndex];
  ComboBox1.Visible := False;
  StringGrid1.SetFocus;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer; var 
CanSelect: Boolean);
var
  R: TRect;
begin
  if ((Col = 3) AND
  (Row  0)) then begin
    R := StringGrid1.CellRect(Col, Row);
    R.Left := R.Left + StringGrid1.Left;
    R.Right := R.Right + StringGrid1.Left;
    R.Top := R.Top + StringGrid1.Top;
    R.Bottom := R.Bottom + StringGrid1.Top;
    ComboBox1.Left := R.Left + 1;
    ComboBox1.Top := R.Top + 1;
    ComboBox1.Width := (R.Right + 1) - R.Left;
    ComboBox1.Height := (R.Bottom + 1) - R.Top;
    ComboBox1.Visible := True;
    ComboBox1.SetFocus;
  end;
  CanSelect := True;
end;

Espero ter ajudado.

--- Em qua, 22/7/09, Jose Newton Araujo jose.new...@jnewton.com.br escreveu:


De: Jose Newton Araujo jose.new...@jnewton.com.br
Assunto: [delphi-br] Dica ComboBox num String Grid
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 22 de Julho de 2009, 10:09


  



Pessoal, preciso de um help

Tem como colocar um Combo Box num string grid e fazer com que a célula
automaticamente assuma o valor definido no combo ?

Jose Newton

[As partes desta mensagem que não continham texto foram removidas]

















  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]