что в этом коде не так?
что в этом коде не так?
Цитата:
procedure TForm1.Memo1Change(Sender:o bject);
begin
memo1.Font.Assign(WPopOutFntCBox1)
end;
begin
memo1.Font.Assign(WPopOutFntCBox1)
end;
почемута вылетает ошибка
WPopOutFntCBox1 что за объект? Какого типа?
Может стоит так?
Может стоит так?
Код:
memo1.Font.Assign(WPopOutFntCBox1.Font]);
Цитата:
Originally posted by Sagittarius
WPopOutFntCBox1 что за объект? Какого типа?
Может стоит так?
WPopOutFntCBox1 что за объект? Какого типа?
Может стоит так?
Код:
memo1.Font.Assign(WPopOutFntCBox1.Font]);
WPopOutFntCBox1-это компанент такой. место него можно и FontDialog использовать. у зделал как вы сказали, всеравно шрифт не меняется.
Цитата:
[COLOR=blue]
begin
fontdialog1.Font.Assign(richedit1.font);
end;[/COLOR]
begin
fontdialog1.Font.Assign(richedit1.font);
end;[/COLOR]
Цитата:
Originally posted by kuma
Код:
begin
fontdialog1 .Font.Assign(richedit1.font);
end;
fontdialog1 .Font.Assign(richedit1.font);
end;
Попробуй поставить стандартный TFontDialog
Код:
if FontDialog1.Execute then
Memo1.Font.Assign(FontDialog1.Font);
Memo1.Font.Assign(FontDialog1.Font);