

Moderators: Korney San, marcipan
Code: Select all
uses
PluginSetupForm;
...
procedure TDMTestPlugIn.PluginConfigure(params: WideString);
var
SetupForm: TPluginSetupForm;
begin
SetupForm:=TPluginSetupForm.Create(nil);
SetupForm.CheckBox1:=Setting1;
...
if SetupForm.ShowModal=mrOK then
begin
Setting1:=SetupForm.CheckBox1;
...
end;
SetupForm.Free;
end;