Читать «Виртуальная библиотека Delphi» онлайн - страница 113
Unknown
else PClassName := StrPCopy(@AClassName[0], ClassName);
if WindowName = '' then PWindowName := nil
else PWindowName := StrPCopy(@AWindowName[0], WindowName);
Result := FindWindow(PClassName, PWindowName) <> 0;
end;
begin
Result := WindowExists('TPropertyInspector', 'Object Inspector')
and WindowExists('TMenuBuilder', 'Menu Designer')
and WindowExists('TApplication', 'Delphi')
and WindowExists('TAlignPalette', 'Align')
and WindowExists('TAppBuilder', '');
end;
Delphi 2.0
function DelphiLoaded: Boolean;
function WindowExists(ClassName, WindowName: string): Boolean;
begin
Result := FindWindow(PChar(ClassName), PChar(WindowName)) <> 0;
end;
begin
Result := WindowExists('TPropertyInspector', 'Object Inspector')
and WindowExists('TMenuBuilder', 'Menu Designer')
and WindowExists('TApplication', 'Delphi')
and WindowExists('TAlignPalette', 'Align')
and WindowExists('TAppBuilder', '');
end;
Другой вариант для Delphi 1.0, работает только в EXE файлах (не в DLL).
function InIDE: Boolean;
begin
Result := Bool(PrefixSeg) and Bool(PWordArray(MemL[DSeg:36])^[8]));
;end
6. Что нужно предусмотреть при разработке приложения, которое будет работать при различном разрешении дисплея?
На ранней стадии создания приложения решите для себя хотите ли вы позволить форме масштабироваться. Преимущество немасштабируемой формы в том, что ничего не меняется во время выполнения. В этом же заключается и недостаток (ваша форма может бать слишком маленькой или слишком большой в некоторых случаях).
1. Если вы не собираетесь делать форму масштабируемой, установите свойство
2. В противном случае
1. Установите
2. Установите шрифты в форме на самые распространенные TrueType шрифты, например Arial, Times New Roman, Courier. Если вдруг выбранного шрифта не окажется на пользовательском компьютере, то Windows выберет альтернативный шрифт из того же семейства. Этот шрифт может не совпадать по размерус исходным, что вызовет проблемы.
3. Установите св-во
4. Оставляйте по крайней мере 4 точки между компонентами, чтобы при смене положения границы на одну позицию компоненты не "наезжали" друг на друга.
5. Для однострочных меток