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