Einzelnen Beitrag anzeigen

Benutzerbild von Hirnsausen
Hirnsausen

Registriert seit: 12. Mär 2006
Ort: 18°00'33.64" N, 76°46'50.73" W, elev 344 ft
64 Beiträge
 
Delphi 7 Personal
 
#3

Re: TStringGrid Zellen - TUpDown in Zellen

  Alt 12. Mär 2006, 19:34
Hallo,

danke zunächst für den Link. Ich habe mich dort umgeschaut und versucht, jenen Code für mein TUpDown zu adaptieren.

Leider klappt es nicht richtig:
- Das TUpDown wird nicht sichtbar.
- Andere Buttons sind nicht mehr benutzbar.

Das TUpDown wurde invisible auf der selben Form abgelegt, reicht von 1 bis 10.

Hier zum besseren Verständnis der Code:

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];
  end;
  R:=StringGridSounds0.CellRect(ACol,ARow);
  R.Left:=R.Left+StringGridSounds0.Left;
  R.Right:=R.Right+StringGridSounds0.Left;
  R.Top:=R.Top+StringGridSounds0.Top;
  R.Bottom:=R.Bottom+StringGridSounds0.Top;
  with UpDownSounds do
  begin
   Left:=R.Left+1;
   Top:=R.Top+1;
   Width:=(R.Right+1)-R.Left;
   Height:=(R.Bottom+1)-R.Top;
   Visible:=True;
   SetFocus;
  end;
 end
 else
 if ACol<>2 then
 begin
  with StringGridSounds0 do
  begin
   Options:=Options-[goEditing];
  end;
 end
end;

procedure TAlpha.StringGridSounds0Exit(Sender: TObject);
begin
 StringGridSounds0.Cells[2,StringGridSounds0.Row]:=IntToStr(UpDownSounds.Position);
 UpDownSounds.Visible:=False;
 StringGridSounds0.SetFocus;
end;
Was muß ich ändern?
Vielen Dank für Eure Zeit, Absicht, Mühe und Ideen.

Sven
  Mit Zitat antworten Zitat