Vielleicht kann mir einer weiter helfen?
Habe jetzt schon einiges ausprobiert!
Wie sieht dieser Quelltext aus? Bin ich schon nah dran?
Delphi-Quellcode:
procedure TForm1.CRDBGrid1CellClick(Column: TColumn);
var
i,weite : integer;
s,t:string;
nRect:TRect;
begin
if field is Tmemofield then begin
with
CRDBGrid1.Canvas do
begin
weite:=Rect.Right-Rect.Left - DBMemo1('...');
s:=field.asstring;
i:=0;
repeat
inc(i);
t:=copy(s,1,i);
until DBMemo1(t) > weite;
t:= copy(s,1,i-1);
fillrect(rect);
DBMemo1(rect,rect.Left+1,rect.top+2,t+'...');
end;
end;
end;
Möchte den DBMemo1(Inhat) im DBGrid anzeigen!
Also DBMEmo1 ins DBGrid Feldname 'Meldung'!