מתרחש לאחר שגיליון עבודה חדש נוסף לחוברת העבודה
תיאור
ניתן להשתמש באירוע זה להגדרת אפשרויות נוספות עבור גיליון העבודה שנוצר
תחביר
TAfterNewSheet =
procedure(Sender: TObject; Worksheet:
TXLSWorksheet) of object;
| Sender |
TObject. מציין the TDataToXLS component that triggered the אירוע |
| Worksheet |
TXLSWorksheet which represents a new Worksheet |
דוגמה
דוגמה זו מגדירה את אפשרויות PageSetup עבור גיליון העבודה שנוצר
procedure TForm1.DataToXLS1AfterNewSheet(Sender: TObject;
Worksheet: TXLSWorksheet);
begin
Worksheet.PageSetup.CenterHeader := 'Monthly report';
end;