Последние записи
- Нужен ли сайт разработчику?
- Обсуждаем технологию I2P
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
21st
Ноя
Сворачивать в трей программу при клике на неё и разворачивалать обратно?
Posted by Chas under Delphi
Johnson
Если так, то просто на OnClick или OnDubleClick событие вешаете примерно такой код:
procedure TVKmain.TrayIconLButtonDblClick(Sender: TObject);
begin
if IsWindowVisible(FindWindow('TVKmain', PChar(VKform.Caption))) then begin
Application.Minimize;
ShowWindow( Application.Handle, sw_Hide );
end else begin
ShowWindow( Application.Handle, sw_Restore );
SetForegroundWindow( Application.Handle );
end;
end;TVKmain, VKform – заменить на название своего класса и своей формы соответственно…