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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.02.2012, 01:02   #1
KWN, lnc
Delphi 7
Форумчанин
 
Аватар для KWN, lnc
 
Регистрация: 10.02.2009
Сообщений: 354
По умолчанию Frame & RegisterHotkey

почему при попытке зарегистрировать клавишу RegisterHotKey(Handle, id1, MOD_CONTROL, VK_A); в Frame
происходит ошибка (((((((((
Дайте мне власть и я переверну ваш мир!...
KWN, lnc вне форума Ответить с цитированием
Старый 25.02.2012, 12:25   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Какая ошибка?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 25.02.2012, 19:13   #3
KWN, lnc
Delphi 7
Форумчанин
 
Аватар для KWN, lnc
 
Регистрация: 10.02.2009
Сообщений: 354
По умолчанию

Ощибка открытия см. рис кстати я тебя попытался добавить в аську ответ на антисмам Angela Gossow???
Изображения
Тип файла: jpg Безимени-1.jpg (102.6 Кб, 140 просмотров)
Дайте мне власть и я переверну ваш мир!...
KWN, lnc вне форума Ответить с цитированием
Старый 25.02.2012, 20:29   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Показывай код. Эта ошибка никак не связанна с RegisterHotKey
Цитата:
ответ на антисмам Angela Gossow???
А ты погугли )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 26.02.2012, 11:28   #5
KWN, lnc
Delphi 7
Форумчанин
 
Аватар для KWN, lnc
 
Регистрация: 10.02.2009
Сообщений: 354
По умолчанию

да? тогда из-за чего? вот исходник. (((( см. архив
Вложения
Тип файла: zip новая версия.zip (3.6 Кб, 9 просмотров)
Дайте мне власть и я переверну ваш мир!...

Последний раз редактировалось KWN, lnc; 26.02.2012 в 11:30. Причина: см. рис - переименовал - на см. архив
KWN, lnc вне форума Ответить с цитированием
Старый 26.02.2012, 11:49   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Чудак ты человек )
Вот скажи, чего ты умные книжки читать не хочешь? Ты же даже не вникаешь в то что пишешь. Давай по порядку разберем твой код:

Ты создал в дизайне форму кинув на ней фрейм - это означает что его описание село в DFM файл. А все компоненты, которые описаны в DFM создаются по ходу создания своего контейнера. В частности форма является контейнером для фрейма. она его создает автоматически. Не нужно дополнительно вызывать метод создания для компонентов, помещенных на форму, а ты пишешь
Цитата:
procedure TForm1.FormCreate(Sender: TObject);
begin
Frame21.Create;
end;
Но это еще пол беды.

Написав Frame21.Create; ты фактически обращаешся к переменной Frame21, заставляя ее создавать экземпляр фрейма его типа и... Никуда его не возвращаешь.
Писал бы уже что-ли так:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
 Frame21:=TFrame2.CreateParented(handle);
end;
Хоть это и не нужно совсем. Твой фрейм уже создала сама форма.

Далее. Посмотри как ты описал конструктор фрейма:
Цитата:
TFrame2 = class(TFrame)
ListBox1: TListBox;
private
{ Private declarations }
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
public
{ Public declarations }
procedure Create;
end;
Дружище, заглядывай в хелп почаще. Там написано :
Цитата:
Creates and initializes a TCustomFrame object.

constructor Create(AOwner: TComponent); override;

Description

Use Create to create and initialize a frame.

AOwner is the component that owns the frame.
Сравни со своим описанием и найди тучу отличий.
Не удивительно что у тебя все на AV падает - ты даже не пытаешься написать стабильный код.

Далее:
В начале RegHotKey ты пишешь:
Цитата:
UnRegisterHotKey(application.MainFo rm.Handle,idkey);
Зачем? Привязка горячей клавиши идет не к фрейму а к приложению. Смысл тогда дерегистрировать ее?

Ну и на последок: Регистрацию ты сделал, а снимать горячую клавишу после завершения приложения Пушкин должен?
Нет, проблемы не обязательно всплывут, просто это некультутрно оставлять за себя мусор, как это делают Микрососовцы, написав свой Виндовс.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 26.02.2012, 12:10   #7
KWN, lnc
Delphi 7
Форумчанин
 
Аватар для KWN, lnc
 
Регистрация: 10.02.2009
Сообщений: 354
По умолчанию

уважаемый программист, можно попросить исходник?!
Дайте мне власть и я переверну ваш мир!...
KWN, lnc вне форума Ответить с цитированием
Старый 26.02.2012, 12:36   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Нет нельзя. Научись думать а не копипастить чужое.
Вот какие ты выводы сделал из того что я сказал?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 26.02.2012, 12:59   #9
KWN, lnc
Delphi 7
Форумчанин
 
Аватар для KWN, lnc
 
Регистрация: 10.02.2009
Сообщений: 354
По умолчанию

просто см. рис. у меня чета не так. а делал я вот так.

Код:
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
Код:
constructor TFrame2.Create(AOwner: TComponent);
begin
  inherited;
ShowINI;
end;

destructor TFrame2.Destroy;
begin

  inherited;
end;
Изображения
Тип файла: jpg Безимени-1.jpg (76.6 Кб, 58 просмотров)
Дайте мне власть и я переверну ваш мир!...
KWN, lnc вне форума Ответить с цитированием
Старый 26.02.2012, 13:27   #10
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Этот кусок кода ни о чем не говорит.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
RegisterHotKey проблема :( KoBaL Общие вопросы Delphi 5 05.11.2011 00:50
frame MirtMacline HTML и CSS 1 03.11.2011 21:20
FRAME MirtMacline HTML и CSS 2 22.10.2011 13:58
TForm & TImage & PNG & Прозрачность delphi_beginner Общие вопросы Delphi 7 19.09.2009 08:46
возможно ли загрузить RegisterHotKey в чужое приложение? user_jasser Win Api 4 27.01.2009 22:51