Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

on top   Найти похожие ветки 

 
Алексей Ким   (2002-10-23 18:05) [0]

Такая ф-ция делает форму онтоп до
следующего activate/de как ее сделать по человечески?

procedure tform1.formshow...
begin
SetWindowPos ( Application.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOMOVE);
end;


 
Алексей Ким   (2002-10-23 21:07) [1]

up


 
SPeller   (2002-10-24 01:01) [2]

У меня она так по-человечески сразу делалась. Может причина в другом?


 
Рыжик   (2002-10-24 10:08) [3]

А если вместо Application.Handle написать Form1.Handle?


 
Алексей Ким   (2002-10-24 18:12) [4]

У меня форма не главная а коду в форме кот наплакал,
вызываю форму так

procedure TfmMain.mmsmallClick(Sender: TObject); //mmsmall - tmenuitem
begin
Visible := False; // glavnaya
fmSmall.Show; // eta forma
end;

на выходе

procedure TfmSmall.FormClose(Sender: TObject; var Action: TCloseAction);
begin
fmMain.Show;
end;

в креате читаю ini и делаю memo.lines.assign(fmMain.memo2.lines)

Рыжик>тогда вообще ничего не делает

привести полный юнит?


 
Nick N A   (2002-10-27 08:26) [5]

ТApplicationEvents (Aditional)
твоему процессу фокус может передать только другой процесс
т.е. Windows.SetForegroundWindow работает только для других окон



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
1-28005
mike-d
2002-11-29 22:05
2002.12.09
Перезапуск приложения


14-28196
Оливейра
2002-11-16 17:19
2002.12.09
Hostmos.ru


8-28148
Fredericco
2002-07-05 16:31
2002.12.09
Вопрос по захвату потокового видео.


3-27849
Hex
2002-11-20 23:16
2002.12.09
MDW и MDB


1-27969
Unknown user
2002-11-26 23:46
2002.12.09
Масштабирование текста





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский