jeje, gracias por la pos Data, te recomiendo que si tienes dudas sobre el map objects continues con el hilo donde nos conocimos ya que de ese si me llega aviso y de este por pura casualidad lo vi.. el código te lo adjunto, si tienes alguna duda me avisas, por cierto que bueno que ya estas investigando más a fondo
Código:
procedure TForm2.BBEtiquetaClick(Sender: TObject);
var
aqui : integer;
oleFt : variant;
lblren : IMoLabelRenderer;
begin
if (cbvisible2.Checked) and (cbdato.Text<>'') then
begin
oleft := FontToOleFont(fuentes.Font);
lblren :=IMoLabelRenderer(CreateOleObject('MapObjects2.LabelRenderer'));
LblRen.DrawBackground := True;
LblRen.Field := 'Nom';
LblRen.SplinedText := True;
LblRen.AllowDuplicates := False;
LblRen.MaxLevel := 10;
LblRen.MinLevel := 10;
LblRen.Symbol[0].Font := IFontDisp(IDispatch(oleFt));
//lblren.AllowDuplicates :=true;
lblren.field :=cbdato.Text;
l.renderer := lblren;
//form1.Map1.Refresh;
end else //fin if principal
l.renderer :=nil;
form1.Map1.Refresh;
saludos