TStringGrid Zellen - TUpDown in Zellen

[Hirnsausen]

Hallo Marabou,

während Deine Beispielsform funktioniert, bleibt bei meiner Form das UpDown noch immer unsichtbar.

Hier mein modifizierter Code nach Deinem Beispiel:

Delphi-Quellcode:

procedure TAlpha.StringGridSounds0SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
 R: TRect;
begin
 if ACol=2 then
 begin
  with StringGridSounds0 do
  begin
   Options:=Options-[goEditing];
   R:=CellRect(ACol, ARow);
  end;
  Zeile:=ARow;
  with UpDownSounds do
  begin
   Position:=StrToInt(StringGridSounds0.Cells[2,Zeile]);
   Top:=R.Top;
   Left:=R.Right;
   Visible:=True;
  end;
 end
 else
 if ACol<>2 then
 begin
  with StringGridSounds0 do
  begin
   Options:=Options-[goEditing];
  end;
  UpDownSounds.Visible:=False;
 end
end;

Entweder liegt es am Positionieren, oder an irgend einem anderen Faktor welchen ich noch nicht kenne.

Sven