Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.12.2010, 18:05   #1
MyLastHit
Очень суровый
Участник клуба
 
Аватар для MyLastHit
 
Регистрация: 17.12.2009
Сообщений: 1,988
По умолчанию Borderstyle - BsNone. Странный баг...

Здравствуйте. Пытаюсь сделать более менее интерактивное приложение. Нарисовал изображения массивом(в этот код особо не вникайте...просто изображения в порядке расставил правильном, здесь все гуд):
Код:
for i:=1 to 25 do
  begin
    j:=1;
    a[i]:=Timage.Create(Self);
    with a[1] do
    begin
      Parent:=Form4;
      name:='go1';
      Picture:=img1.Picture;
      AutoSize:=True;
      left:=6;
      top:=424;
      visible:=true;
      onmousemove:=moveit;
    end;
    if i>1 then
    begin
      with a[i] do
      begin
        Parent:=form4;
        Name:='go'+inttostr(i);
        AutoSize:=True;
        Picture:=img1.Picture;
        top:=424;
        left:=a[i-1].left+40;
        visible:=false;
        onmousemove:=moveit;
      end;
    end;
А вот в обработчике MoveIt, вот это написал:
Код:
if (Sender is TImage) then
  for i:=1 to 25 do
  if i<>j then
  begin
  a[i].Hide;
  if StrToInt(Copy((Sender as TImage).name,4,
  length((Sender as TImage).name)-3))=i then
  a[i].Show;
  end;
PS: На j внимания не обращайте, этот параметр передается при клике по сторонним кнопкам.
Факт в том, что Всё работает просто превосходно во всех видах формы кроме BSnone! Но если я ставлю стиль отображения формы как bsnone, то такое ощущение что этот обработчик просто игнорируется!
Никто не сталкивался? Как решается?
Ненавижу быть как все, но люблю, чтобы все были как я.

Последний раз редактировалось MyLastHit; 21.12.2010 в 18:07.
MyLastHit вне форума Ответить с цитированием
Старый 21.12.2010, 18:16   #2
GunSmoker
Старожил
 
Регистрация: 13.08.2009
Сообщений: 2,581
По умолчанию

Отжёг.

И как же мы можем догадаться, кто такой MoveIt и когда он вызывается?
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
GunSmoker вне форума Ответить с цитированием
Старый 21.12.2010, 18:42   #3
MyLastHit
Очень суровый
Участник клуба
 
Аватар для MyLastHit
 
Регистрация: 17.12.2009
Сообщений: 1,988
По умолчанию

Я же его написал:
Код:
procedure TForm4.Moveit(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (Sender is TImage) then
  for i:=1 to 25 do
  if i<>j then
  begin
  a[i].Hide;
  if StrToInt(Copy((Sender as TImage).name,4,
  length((Sender as TImage).name)-3))=i then
  a[i].Show;
  end;
end;
А вообще впринципи я понял от чего это... у меня установлены компоненты AlphaTools и в них модуль для загрузки png идет, так вот, пока не кинешь на форму ихний Адаптор все будет работать хреново. Прорисовки на форме не будет. Тоже самое если Адаптер лежит на форме но у формы свойство bsNone. Теперь ищу компонент для подкачки png, а Алфу снес нафиг...
Ненавижу быть как все, но люблю, чтобы все были как я.
MyLastHit вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
изменение размера формы (bsNone) Sowa Общие вопросы Delphi 7 07.02.2010 09:11
[Delphi] border style="bsnone" Рамик Помощь студентам 2 09.07.2009 23:21
Перетаскивание формы при BorderStyle := bsNone lexaltd Общие вопросы Delphi 3 25.03.2009 14:57
Странный баг при работе с разделяемой памятью в C mephisto123 Qt и кроссплатформенное программирование С/С++ 2 01.08.2008 18:10
Ошибка в коде (BorderStyle) Airou Общие вопросы Delphi 10 24.05.2008 19:50