رسم نمودن جدول بروی فرم

[Gladiator]

با سلام

یه سوال آنتیک :wink:

چطوری میشه یه جدول روی فرم رسم کرد ؟

ممنون میشم اگر جواب بدین :wink:

[amirrf]

سلام،

از طریق Canvas فرم. براى نمونه:

procedure TForm1.FormPaint(Sender: TObject);
var I: Integer;
begin
for I:= 1 to 10 do
with Canvas do
begin
MoveTo(30*I, 30);
LineTo(30*I, 300);
MoveTo(30, 30*I);
LineTo(300, 30*I);
end;
end;