PDA

View Full Version : رسم نمودن جدول بروی فرم



Gladiator
پنج شنبه 28 فروردین 1382, 11:11 صبح
با سلام

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

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

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

amirrf
پنج شنبه 28 فروردین 1382, 22:27 عصر
سلام،

از طریق 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;