Waar kan ik die properties zetten dan???
Ik heb de volgende code:
Code:
procedure TForm1.sgOnderdelenSetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
if isTabPressed() = true
then begin
if bGedaan = false
then begin
showmessage('Kolom moet gewijzigd worden');
KolomWijziging(ACol, ARow, Value);
//// Nu moet de focus verplaats worden naar de vierde kolom in dezelfde rij
bGedaan := true;
end
else begin
showmessage('Kolom is al gewijzigd');
bGedaan := false;
end;
end
else begin
KolomWijziging(ACOl, ARow, Value);
//// En hier ook
end;
end;
Hoe zou ik dat hier moeten doen??
Bookmarks