Autor Beitrag
Arne Danikowski
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 194



BeitragVerfasst: Di 16.09.08 17:00 
Hi, ich schon wieder.

folgendes Problem:
ich kontrolliere beim verlassen einer Zellen, ob ein Wert eingetragen wurde oder nicht. Wenn der Inhalt leer ist, soll ein Hinweis kommen und die Zelle makiert werden damit dort die Eingabe vorgenommen werden kann.

Das hab ich mir zurechtgebastelt
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
if RxDBGrid1.col=2 then //Zelle 2 überwachen
  begin
      lagerdata.ADOEingangQuery.edit;
      if lagerdata.ADOEingangQuery.FieldByName('Anzahl').AsString  = '' then //wenn Zelle leer
      begin
      MessageDlg('Bitte Anzahl nicht vergessen', mtInformation, [mbOK], 0);  //Messagesfenster 
      RxDBGrid1.SelectedField.AsInteger:=1;  // Das geht natürlich nicht, da die Zelle den Wer 1 bekommt hier soll aber die Zelle markiert werden
      end
      else
      XDBNavigator1.BtnClick(nbinsert); //Wenn nicht leer dann neuen Datensatz
      end;
  end;

weiss jemand weiter?