ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
07.07.2007, 21:32
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
Procedure TForm1.WMGetSysCommand(var Message : TMessage);
Begin
IF (Message.wParam = SC_MINIMIZE) then ShowMessage('Сейчас окно будет свернуто');
Inherited;
End;
это пробывал ошибка пишет =( в чем проблемма?
|
|
|
07.07.2007, 22:50
|
|
Новичок
Регистрация: 14.06.2007
Сообщений: 25
Провел на форуме:
88174
Репутация:
6
|
|
Сообщение от infernal-team
Procedure TForm1.WMGetSysCommand(var Message : TMessage);
Begin
IF (Message.wParam = SC_MINIMIZE) then ShowMessage('Сейчас окно будет свернуто');
Inherited;
End;
это пробывал ошибка пишет =( в чем проблемма?
Когда пишет? Ты вот это сделать не забыл ? :
Код:
type
TForm1 = class(TForm)
private
Procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;
{ Private declarations }
public
{ Public declarations }
end;
Последний раз редактировалось Попрошайка; 07.07.2007 в 22:58..
|
|
|
|
07.07.2007, 23:03
|
|
Новичок
Регистрация: 14.06.2007
Сообщений: 25
Провел на форуме:
88174
Репутация:
6
|
|
Сообщение от БензиН
Как сделать ссылку на форме, и переход с одной формы на другую?
Что значит ссылку? К примеру кинь на форму Label и обрабатывай событие OnClick .
|
|
|
|
07.07.2007, 23:14
|
|
Познающий
Регистрация: 26.11.2006
Сообщений: 31
Провел на форуме:
192499
Репутация:
3
|
|
Дело в том что я незнаю как может кинеш код.
|
|
|
|
07.07.2007, 23:34
|
|
Новичок
Регистрация: 14.06.2007
Сообщений: 25
Провел на форуме:
88174
Репутация:
6
|
|
Сообщение от БензиН
Дело в том что я незнаю как может кинеш код.
Как вариант можно так :
Код:
procedure TForm1.Label1Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;
Для придания Label'у вида URL выстави стиль у шрифта
(в инспекторе объектов) [fsUnderline] ну и цвет поменяй.
Последний раз редактировалось Попрошайка; 07.07.2007 в 23:37..
|
|
|
|
07.07.2007, 23:34
|
|
Участник форума
Регистрация: 11.05.2007
Сообщений: 149
Провел на форуме:
6373157
Репутация:
247
|
|
Создаеш Две формы. На первую кидаеш компонент Label1. Кликаеш на него Два Раза. И пишеш код вызова Второй формы: Form2.Show
Вот пример::
procedure TForm1.Label1Click(Sender: TObject);
begin
Form2.Show;
end;
|
|
|
|
07.07.2007, 23:35
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
Если чел просит видимо нужно выложит =), че глупые вопросы задаеш?!
|
|
|
|
07.07.2007, 23:44
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
Попрошайка кароче все сделал правильно, но эта функция выдает предупреждение на сворачивание а мне нужно чтобы свернуть и развернуть не функцианировали.
|
|
|
|
07.07.2007, 23:50
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
Что нужно:
1. Сделать на форме ссылку
2. Сделать нефункционирующими и прозрачными кнопки свернуть и развернуть
3. Сделать переход на другую форму через бутон
Пока на этом все.
|
|
|
|
08.07.2007, 00:22
|
|
Новичок
Регистрация: 14.06.2007
Сообщений: 25
Провел на форуме:
88174
Репутация:
6
|
|
Сообщение от infernal-team
Что нужно:
1. Сделать на форме ссылку
2. Сделать нефункционирующими и прозрачными кнопки свернуть и развернуть
3. Сделать переход на другую форму через бутон
Пока на этом все.
Мда... 
Вот дерзай, только какой смысл обрабатывать сообщения по развёртыванию формы, когда гораздо проще просто убрать эти кнопки...
http://slil.ru/24605079
Для пущей жести можно добавить :
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
Style: Longint;
begin
Style := GetWindowLong(Handle, GWL_STYLE);
SetWindowLong(Handle, GWL_STYLE, Style and not WS_SYSMENU);
end;
Последний раз редактировалось Попрошайка; 08.07.2007 в 00:38..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
