Mega Code Archive

 

Categories / Delphi / Forms

 

Dll dosyasına form gomme ve çağırma

//Gomme var Form1 : TForm; Function DLLForm(CMAB: Boolean):Boolean; Export; implementation {$R *.dfm} Function CMAbout(CMAB: Boolean):Boolean; Begin AboutForm := TAboutForm.Create(Application); Try if AboutForm.ShowModal = MrOK then Result := True; Finally AboutForm.Free; End; end; //Çağırma Function DLLForm(CMAB: Boolean):Boolean; Export; far; External'DllForm.dll'; procedure TForm1.Button1Click(Sender: TObject); begin DllForm(True); end;