Надуманная??? Ну не знаю в 0.9.29 работают почему то ток poDesktopCenter, poScreenCenter и poMainFormCenter, в 0.9.28 как оказалось работает и poDefault, но все равно почему то не работает сохранение и загрузка координат положения окна из ini файла. Они являются какими то абсолютными. В случаи poDesktopCenter форма так и будет создаваться по середине. В 0.9.28 и при poDefault форма всегда будет в дефолтном положении.
Набрасал небольшой пример
http://ifolder.ru/18324215Имел ввиду в runtime компоненту назначить действие. Почему то при режиме {$mode objfpc}{$H+}
ругается Error: Wrong number of parameters specified for call to. При {$mode delphi}{$H+} конечно работает, но интересно, как это должно работать в нативном режиме.
Например
При назначение
- Код: Выделить всё
Application.OnMinimize := AppMinimize;
Application.OnRestore := AppMinimize;
где
- Код: Выделить всё
procedure TMainForm.AppMinimize(Sender: TObject);
begin
{$IFDEF WINDOWS}ShowWindow(Handle, SW_HIDE);{$ENDIF}
end;
Ругается MainUnit.pas(403,40) Error: Wrong number of parameters specified for call to "AppMinimize"
или динамически создаются пункты меню
- Код: Выделить всё
with PopMenu.Items.Items[1] do
begin
for I := 0 to List.Count - 1 do
begin
if list.Strings[I] <> EmptyStr then
begin
Add(NewItem(list.Strings[I], 0, False, True, PopClick,
0, 'MenuItem' + IntToStr(I)));
Items[I].Hint := list.Strings[I];
Items[I].ImageIndex := 51;
end;
end;
end;
Ругается на PopClick
MainUnit.pas(463,70) Error: Wrong number of parameters specified for call to "PopClick"
Nik писал(а):Вот тут обсуждали: viewtopic.php?f=5&t=735
Спасибо за наводку на тему.
