Delphi-Quellcode:
procedure TEditF.SG_SprachenTopLeftChanged(Sender: TObject);
var
GRect:TGridRect;
begin
CB_Sprachen.Visible:=false;
GRect:=SG_Sprachen.Selection;
if(GRect.Left=0)and(GRect.Right=0)then
begin
inc(GRect.Left, 1);
inc(GRect.Right, 1);
end;
SG_Sprachen.Selection:=GRect;
end;
Danke für deinen Hinweis, hat echt geholfen!
Der LDer.
P.S.: Jetz stimmt auch mein Nickname! Dnke nochmal an Daniel!