确认F1BOOK两个问题(100分)

  • 主题发起人 主题发起人 str
  • 开始时间 开始时间
S

str

Unregistered / Unconfirmed
GUEST, unregistred user!
确认F1BOOK两个问题:1)点击每个CELL(单元格)有没有可能触发一个事件?
2)OBJECT的TEXT可否设置大小?
方法?
 
1.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
AxCtrls, OleCtrls, vcf1, StdCtrls;

type
TForm1 = class(TForm)
F1Book1: TF1Book;
Button1: TButton;
procedure F1Book1Click(Sender: TObject; nRow, nCol: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.F1Book1Click(Sender: TObject; nRow, nCol: Integer);
begin
ShowMessage(Format('You click [%d,%d]',[nRow,nCol]));
end;

end.


2......不知道
 
后退
顶部