我用的控件为richedit组件，具体代码如下：
procedure TForm1.N6Click(Sender: TObject);
var
fontdialog1:tfontdialog;
begin
if richedit1.sellength>0 then
begin
fontdialog1:=Tfontdialog.Create(self);
fontdialog1.Font.Assign(richedit1.defattributes);
if fontdialog1.Execute then
richedit1.selattributes.assign(fontdialog1.font);
end;
end;
另想问一下学delphi应从哪方面入手，请富翁们指教。
