markere hvis indhold i Richedit

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
label1.Caption := '';
if adotable1.FieldByName('tekst').AsString <> '' then
label1.Caption := 'X';
end;

Stoney

eller du kan farve din grid hvis der er tekst i din dbrichedit.
Her bliver kolonnen/feltet Navn gul i din dbgrid hvis dbrichedit ikke er tom

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with Sender as TDBGrid do
  begin
  if (Column.FieldName = 'Navn')
  then if (adotable1.FieldByName('tekst').AsString <> '')    then
  begin
    Canvas.Brush.Color := clyellow;
    canvas.Font.Color := clblack;
  DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;
end;

Stoney

den sætter kryds selvom richedit er tom.
Det jeg var ude efter er at mens man scroller igennem de forskellige poster at label1(x) er synlig når richedit indholder tekst og ikke synlig hvis den er tom.Det dur ikke med datasourceonchange da den ikke tager forbehold for hvis richedit allerede indeholder tekst.

Er du helt sikker ?
Det virker hos mig.

Stoney

har prøvet den i min dbgrid den virker også fint indtil man sletter indhold i den aktuelle post, så er den stadig markeret næste gang man starter den op.

iøvrigt når man sætter AsStreng <> større eller mindre end vil den så ikke markere uanset om indholdet er 0 eller derover? (bare en tanke)

Er der ikke en anden løsning?

lukker