Не... Пока все не перейдут на платформу .net, мне будет достаточно моей шестой дельфины.

Цитата(wesadex @ 27.12.2005, 12:31)

push $FFFFFFD0 - вот то, что сгенерил компилятор - это и есть значение MB_ICONWARNING у меня и равно оно МИНУС $30... Откуда там знаковый бит взялся?

Проверь как определена константа MB_ICONWARNING в модуле Windows.pas

Цитата(wesadex @ 27.12.2005, 11:31)

а как быть с Form.OnPaint? Я пробовал пошаговый трекинг с заходом в процедуры

OnPaint - это место тонкое. По крайней мере с точки зрения отладки. Т.к. при пошаговом выполнении постоянно происходит переключение между окном IDE и окном приложения, то система постоянно норовит перерерисовать окно приложения. А это существенно искажает картину происходящего.
Попробуй ставить непрерывающие точки останова с протоколированием их прохождения в Event Log.
Сам я OnPaint не пробовал, но огромное число компонент им пользуется. Поэтому, если бы он не работал, то и они бы не работали. Так что ищи - чудес не бывает.
Добавлено @ 01:57
И еще. Сделай простейший пример с использованием OnPaint.

В общем не знаю как там насчет Windows.pas - у меня его почему-то не обнаружилось - но тупо
ShowMessage(IntToStr(MB_ICONWARNING)); дает в результате 48 ($00000030)? а значит константа прописана правильно, но что тогда получается? - компилятор глючит?

Простейший пример с Form.OnPaint:

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs; type   TForm1 = class(TForm)     procedure FormPaint(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormPaint(Sender: TObject); begin     ShowMessage('Событие произошло!'); end; end.

Не работает...
На Семерке же кнопку замучаешься нажимать если форму за пределы экрана увести...

wesadex, я предлагаю заканчивать здесь обсуждение не работоспособности вашего кода. Я утверждаю со всей ответственностью, что и OnPaint и вызов всех видов диалогов в BDS 2006 работает корректно! OnPaint в отличие от Delphi 7 дергается действительно реже, но и более правильно. Считаю спор оконченным.

Цитата(wesadex @ 28.12.2005, 11:01)

procedure TForm1.FormPaint(Sender: TObject); begin     ShowMessage('Событие произошло!'); end;

А вот такое точно делать недопустимо!
Почитайте основы программирования под Windows. При обработке сообщения OnPaint нельзя вызывать никаких диалогов. Тем более модальных. Это событие только для отрисовки!

Цитата(wesadex @ 28.12.2005, 11:01)

В общем не знаю как там насчет Windows.pas - у меня его почему-то не обнаружилось

А вот это действительно странно. Похоже у вас битая/тестовая/демо/... версия.

Цитата(wesadex @ 28.12.2005, 11:01)

ShowMessage(IntToStr(MB_ICONWARNING)); дает в результате 48 ($00000030)? а значит константа прописана правильно, но что тогда получается? - компилятор глючит?

Ну про компилятор вы слегка загнули. Скорее всего это значит что в месте где у вас подставляется не правильная константа, она берется не из модуля Windows. Вероятно она где-то перекрывается другим определением.

Добавлено @ 11:52
Попробуйте в месте неправильной работы указать квалификатор модуля: Windows.MB_ICONWARNING.

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 03:01

2 Модераторы:
Ребята, да я вроде и не спорю, просто сам пытаюсь понять... Видать дистриб битый и вправду, вылезли еще некоторые глюки. Сношу и ищу другой...
Прошу прощения, если мои посты натолкнули вас на мысль о том, что я ругаю Борланд или BDS2006 - это все разочарование... после 2005-ой Дельфи вполне объяснимое!

Неужели Борланд наконец сделали что-то хорошее после Делфи 8 и 2005

Цитата

Неужели Борланд наконец сделали что-то хорошее после Делфи 8 и 2005

Пожалуй да.
Правда, многие изменения весьма велики и могут потребовать некоторых изменений в готовых программах.

Цитата(_hunter @ 23.12.2005, 14:53)

блин. борланд порадовал: http://qc.borland.com/wc/qcmain.aspx?d=10265 что за "as designed"? точнее нафига.

ниче не понял что там описывается?

Ну вот, нашел нормальный дистриб 2006-ой Дельфи... поставил, смотрю. Пока все работает так, как и дОлжно. Пару проектов уже переселил на нее - все в норме. Не очень привычный дизайн после Семерки, но думаю, что привыкну легко.
Кстати:

Код

procedure TForm1.Form1Paint(Sender:TObject); begin    ShowMessage('Событие произошло!'); end;

- вполне работоспособный код. Другой вопрос, что лучше так не писать, но я пытался наглядно показать глюки на элементарных примерах...

dsergey, там описывается "фича" по которой системная переменная BDSPROJECTDIR жестко привязана к пути "%PERSONAL%\Borland Studio Projects" ( что многих ( и меня в том числе ) раздражает ). с резюме от разработчиков что "все нормально" и " так и должно быть" ( точнее "так и задуманно" )


кстати у Object Inspector' а ( если его авто-скрывающимся сделать ) наблюдается странное поведение -- иногда он раскрывается на весь экран ( а не на старое ( на которое он был развернут до скрытия ) положение )

Цитата(_hunter @ 30.12.2005, 11:44)

кстати у Object Inspector' а ( если его авто-скрывающимся сделать ) наблюдается странное поведение -- иногда он раскрывается на весь экран ( а не на старое ( на которое он был развернут до скрытия ) положение )

вот это глюк

А зачем вообще скрывать инспектор объектов? Он же ведь никому не мешает

А никто не пробовал AlphaControls ставить на ней? может быть подойдет версия под 2005, а то версия под 2006 не скоро будет.