Q&A

  • FormClose
밑에 구문좀 해석해주세요



procedure TTAN201S1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := CaFree;

end;





0  COMMENTS