Forum: Datenbanken
by Alterauge,
1. Mai 2011
wie würde das aussehen?
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Wert: string;
begin
Wert := DBGrid1.DataSource.DataSet.FieldByName('STATUS').Value;
if Wert = 'Erfasst' then begin
Forum: Datenbanken
by Alterauge,
1. Mai 2011
das wäre dann 'Erfasst'
und dann ?
Forum: Datenbanken
by Alterauge,
1. Mai 2011
Habe zwei Fragen!
1.) DBGrid nach Zeilenfarbe sortieren!
Alles was gelb ist nach oben
2.) wenn ein neuer Datensatz gelesen wird aber nur bei Zeile gelb,
soll einmalig eine wav Datei abgespielt werden. Oder Beep würde auch gehen!
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);