StringGrid a lista typu ComboBox

0

Witam!!!

Mam pytanie jak umieścić w komórce StringGrida listę rozwijaną typu ComboBox. Miałem gdzieś linka do tego sposobu , ale przepadł i nie wiem jak to zrobić.

0

powiedz mi jeszcze jak tego użyć, bo nie mam zielonego pojęcia!!!

0

A z czym masz problem, bo testowałem przed chwilą i działa. Tylko dla poprawności trzeba.

  1. Zapisać moduł jako BWControlStringGrid.pas w katalogu programu.
  2. Wywalić procedurę Register - chyba, że chce się używać komponentu wizualnie,
    ale lepiej używać dynamicznie. Zresztą nie sprawdziłem czy położony na formatce będzie działać ok.
  3. Wyciąć fComboBox:TCombobox; z sekcji private i wkleić go na początku sekcji public.
  4. Dodać moduł BWControlStringGrid do sekcji uses i można już go używać dynamicznie, na przykład:
procedure TForm1.Cosik(Sender : TObject);
begin
with Sender as TComboBox do
   begin
   Caption := IntToStr(ItemIndex);
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SG : TBWControlStringGrid;
begin
  sG := TBWControlStringGrid.Create(Form1);
  SG.Parent := Form1;
  SG.fComboBox.Items.Add('aaa');
  SG.fComboBox.Items.Add('bbb');
  SG.fComboBox.Items.Add('ccc');
  SG.fComboBox.OnChange := Cosik;
end;

A Jak masz problem ze skorzystaniem z gotowego i działającego kodu to poczytaj kompendium czy kursy.

1 użytkowników online, w tym zalogowanych: 0, gości: 1