[طيباوي ابو علي1]

كتابة جملة أو كلمة على الفورم


procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Canvas.Font.Name := 'Arial';
Form1.Canvas.Font.Charset := ARABIC_CHARSET;
Form1.Canvas.Font.Size := 10;
Form1.Canvas.Font.Style := [fsBold];
Form1.Canvas.TextOut(10, 5, 'بسم الله الرحمن الرحيم');
end;