formların giriş ve çıkışında ekran pozisyonlarını kaydediyorum. aşağıdaki kod xp 2000 vs sorunsuz çalışıyor ama 98 lerde TOP parametresi için hta vermekte. bunu nasıl gideririm.
procedure TFrmMaster.FormCreate(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create ;
try
Reg.OpenKey('Software\Nova\'+AppShortName+'\FormLayout\'+Name,True);
// Reg.OpenKey('Software\Nova\FormLayout\'+Name,True);
if Reg.ValueExists('Top') then Top :=Reg.ReadInteger('Top');
if Reg.ValueExists('Left') then Left :=Reg.ReadInteger('Left');
if Top>(Screen.Height-50) then Top:=0;
if Left>(Screen.Width-50) then Left:=0;
if BorderStyle in [bsSizeable] then
begin
if Reg.ValueExists('Width') then Width :=Reg.ReadInteger('Width');
if Reg.ValueExists('Height') then Height:=Reg.ReadInteger('Height');
end;
if Reg.ValueExists('WindowState') then WindowState:=TWindowState(Reg.ReadInteger('WindowState'));
finally
Reg.Free;
end;
end;
