| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Порядок событий при создании и показе окна [D6, WinME, Win2k]

BOA_KAA ©   (2002-11-03 18:01:00) 

Насколько я помню, эти самые события происходят так:
OnCreate, OnShow, OnPaint, OnActivate, OnResize при создании окна и возвращаемся к OnPaint при его перерисовке... (поправьте, если ошибаюсь).

Если так, то почему не работает следующий код?

procedure TfmMain.FormCreate(Sender: TObject);
begin
bnPaste.Enabled:=False;
if Clipboard.HasFormat(CF_PICTURE) then
bnPaste.Enabled:=True;
end;

procedure TfmMain.bnPasteClick(Sender: TObject);
begin
imPict.Picture.Assign(Clipboard);
end;

procedure TfmMain.FormActivate(Sender: TObject);
begin
if Clipboard.HasFormat(CF_PICTURE) then
bnPaste.Enabled:=True;
end;

procedure TfmMain.bnClearClick(Sender: TObject);
begin
Clipboard.Clear;
bnPaste.Enabled:=False;
end;

Я думаю понятно, что тут делается... Если окно теряет фокус, а потом приобретает его, то сканируется Clipboard на предмет наличия в нем рисунка. То же самое делается при OnCreate.
Так вот если до создания формы в Clipboard"е есть рисунок, то все нормально, а если окно теряет фокус, копирую рисунок, показываю свое окошко, то нифига (извините) не получается.

ЧТО ЗА ДЕЛА?
Заранее благодарю!

---

BOA_KAA   (2002-11-03 19:22:00) [1]

Спасибо, попробую!

---

TTCustomDelphiMaster   (2002-11-03 18:45:00) [2]

Используйте Application.onActivate вместо Form.onActivate

А правильно это делается так:

McSimm © (10.07.02 10:06)
Есть техника, позволяющая отслеживать изменения Clipboard. Для этого надо
1. Зарегистрировать свое окно в цепочке ClipboardChain
2. Выполнять необходимые действия по передаче сообщений по цепочке
3. Удалить свое окно из цепочки.

Пример :
procedure TForm1.FormCreate(Sender: TObject);
begin
// Регистрируемся и запоминаем соседа
Hn := SetClipboardViewer(Handle)
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
// Удаляем себя из списка
ChangeClipboardChain(Handle, Hn);
end;
procedure TForm1.ChangeCBChain(var Message: TWMChangeCBChain);
begin
// Обрабатываем событие изменения очереди
if Message.Remove = Hn then Hn := Message.Next
else
if Hn <> 0 then // передаем по цепочке
SendMessage(Hn, Message.Msg, Message.Remove, Message.Next);
Message.Result := 0
end;
procedure TForm1.DrawClipboard(var Message: TWMDrawClipboard);
begin
//Обрабатываем изменения в Clipboard
Button1.Enabled := IsClipboardFormatAvailable(CF_TEXT);
if Hn <> 0 then // передаем по цепочке
SendMessage(Hn, Message.Msg, 0, 0)
end;

---

Наверх