Forum: Programmieren allgemein
by hhcm,
22. Mär 2020
Mit ein paar Schaltern unter Navigation und/oder MouseActions sollte folgendes gehen
procedure TFormx.sg2SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
if ACol = 3 then
begin
CanSelect := False;
sg2.EditCell(2, ARow);
end;
Forum: Programmieren allgemein
by hhcm,
22. Mär 2020
Ich habe nicht gesagt das es nicht anders geht.
Was mit deinem Beispiel funktioniert ist folgendes.
procedure TFormx.sg2EditChange(Sender: TObject; ACol, ARow: Integer; Value: string);
var
di: TDropDownItem;
colIndex: Integer;
begin
if ACol = 2 then
Forum: Programmieren allgemein
by hhcm,
21. Mär 2020
Ich war mal in einer ähnlichen Situation. Leider finde ich das entsprechende Projekt nicht mehr.
Es lief aber alles auf eine Ableitung "Editlink" hinaus. Also einen eigenen Editor.
Vielleicht hilft das weiter.
Schau dir dazu mal die bereits vorhandenen EditLink Komponenten von TMS an.