procedure TForm1.CheckBox1Click(Sender: TObject);
begin
edit1.Font.Style :=edit1.Font.Style + [fsbold];
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
edit1.Font.Style:=edit1.Font.Style + [fsunderline];
end;
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
edit1.Font.Style:=edit1.Font.Style + [fsitalic];
end;
end.
nazım demir
demirnazim@hotmail.com