![]() |
![]() ![]() ![]() |
acFormPlacementSaver component.
|
type
|
TacFormPlacementSaverEvent = procedure(Sender: TObject; Reg: TRegistry) of object;
|
|
property OnLoadSettings: TacFormPlacementSaverEvent;
|
The OnLoadSettings occurs when the component loads the information about form placement to the system registry. Write OnLoadSettings event handler to load some additional settings together with form placement.
|
procedure TMainForm.PlacementSaver1SaveSettings(Sender: TObject;
|
Reg: TRegistry);
|
var
|
Test: Integer;
|
begin
|
Test := Reg.ReadInteger('Test');
|
end;
|
OnRegKeyNotFound and OnSaveSettings events.
|