Question

Delphi中printdialog，和fontdialog如何使用

opendialog我知道怎么用
就是 if opendialog1.excute then
memo1.lines.loadfromfile(opendialog1.filename)
上面代码可以实现
类似这种格式，如何实现printdialog和fontdialog

Answer 1

一.PrintDialog 控件常用的属性、方法和事件
属性、方法和事件 功能解释
Collate 设置对话框中分页选项
Copies 设置对话框中份数
FromPage、ToPage 设置打印范围
Options 设置对话框的扩展属性

二.FontDialog 控件常用的属性、方法和事件
属性、方法和事件 功能解释
Device 设置字体显示设备
Font 设置字体
Options 设置字体的扩展属性
三.界面设计：
在【Form1】上放置一个【Memo】控件，名为【Memo1】，设置【Memo1】的【ScrollBars】属性为【ssBoth】，单击【Lines】属性右边的【⋯】按钮，编辑【Memo1】的【Lines】内容；在【Form1】上放置两个【Button】控件，分别名为【Button1】、【Button2】，设置【Button1】的【Caption】属性为【字体】，设置【Button2】的【Caption】属性为【颜色】；在【Form1】上放置一个【FontDialog】控件，名为【FontDialog1】；在【Form1】上放置一个【ColorDialog】，名为【ColorDialog1】；调整控件，形成程序界面图如图5.9-1 所示：
5、 代码设计：双击【Button1】按钮，输入如下代码（阴影部分）：
procedure TForm1.Button1Click(Sender: TObject);
begin
if fontdialog1.Execute then
memo1.Font:=fontdialog1.Font;
end;

Answer 2

procedure TForm1.Button5Click(Sender: TObject);
begin
if FontDialog1.Execute then
ListBox1.Font := FontDialog1.Font;
{
也可以单独设置分项
ListBox1.Font.Style := [fsBold, fsItalic, fsUnderline, fsStrikeOut];
ListBox1.Font.Color := FontDialog1.Font.Color; //字体颜色
ListBox1.Font.Style := FontDialog1.Font.Style; //字体样式 [fsBold, fsItalic, fsUnderline, fsStrikeOut]
ListBox1.Font.Size := FontDialog1.Font.Size; //字体大小
ListBox1.Font.Charset := FontDialog1.Font.Charset; //字符集
}
end;

打印的
procedure TForm1.Button7Click(Sender: TObject);
var
i: Integer;
PRNText: system.text;
begin
if PrintDialog1.Execute then
begin
AssignPrn(PRNText);
Rewrite(PRNText);
with Printer do
begin
Canvas.Font := ListBox1.Font;
for i := 0 to ListBox1.Count - 1 do
begin
system.Writeln(PRNText, ListBox1.Items[i]);
end;
end;
system.close(PRNText);
end;

end;
刚才只看到了fontdialog的，呵呵

追问

这个我复制进去 运行 显示就是 prn ,printer没有定义

追答

刚才忘了说了，需要 uses Printers;

追问

uses Printers; 我也加了 就多了个printer没有定义了
我还有几个问题 ，因为我在做毕业设计，时间太紧了，呵呵学的又不好，好多问题，麻烦了
1、就是form2调用form1的adoquery问题 form2中我用的是DBGrid调用 ，但是DBGRID调用时必须在DATAsource中修改属性 ，但是是另一张form的datasource，怎么能实现
2、怎样在listbox中显示ADOQUERY查询到的所有记录，我现在只能显示DBGrid中指针所指的那条

追答

不会呀，我又试了一下，printer的没问题呀？而且我已经测试打印成功了，你将Pinters 放到上面那个uses里
datasource的问题，我的理解是不是你想将form2上的dbgrid的datasource设置为form1上的datasource？如果你问的是这个的话，那么直接设置就可以了，将form2上的dbgrid的datasource直接设置为form1.datasource1，就可以了，或者你在代码里设置dbgrid1.datasource := form1.datasource1;

listbox显示所有记录的问题，
if (ADOQuery1.Active) and (ADOQuery1.RecordCount > 0) then
begin
ADOQuery1.First;
ListBox1.Clear;
while not ADOQuery1.Eof do
begin
ListBox1.Items.Add(ADOQuery1.FieldByName('字段1').AsString);
//如果你想显示所有列，你就这样 ADOQuery1.FieldByName('字段1').AsString + ' ' + ADOQuery1.FieldByName('字段2').AsString
ADOQuery1.Next;
end;
end;