procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Self); Form2.ShowModal(procedure(ModalResult : TModalResult) begin if ModalResult = mrOK then // do something here end); end;
TIWCalendar: 日歷控件, 繼承於 TIWCus
Delphi調用多張圖片編寫實現的簡單動畫屏保例子,每張圖
IGPColors 是一個泛型數組應用於 TGPColo
在 Delphi 2009 中:string
本例效果圖:unit Unit1; interface