[Delphi]/[Pascal] Задай вопрос, получи ответ

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 20 из 677

Опции темы

Поиск в этой теме

Опции просмотра

#191

07.07.2007, 21:32

infernal-team

Познающий

Регистрация: 04.07.2007

Сообщений: 56

Провел на форуме:
329032

Репутация: 8

Procedure TForm1.WMGetSysCommand(var Message : TMessage);
Begin
IF (Message.wParam = SC_MINIMIZE) then ShowMessage('Сейчас окно будет свернуто');
Inherited;
End;

это пробывал ошибка пишет =( в чем проблемма?

#192

07.07.2007, 22:50

Попрошайка

Новичок

Регистрация: 14.06.2007

Сообщений: 25

Провел на форуме:
88174

Репутация: 6

Цитата:

Сообщение от infernal-team

Когда пишет? Ты вот это сделать не забыл ? :

Код:

type
  TForm1 = class(TForm)
  private
    Procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;

Последний раз редактировалось Попрошайка; 07.07.2007 в 22:58..

#193

07.07.2007, 23:03

Попрошайка

Новичок

Регистрация: 14.06.2007

Сообщений: 25

Провел на форуме:
88174

Репутация: 6

Цитата:

Сообщение от БензиН

Как сделать ссылку на форме, и переход с одной формы на другую?

Что значит ссылку? К примеру кинь на форму Label и обрабатывай событие OnClick .

#194

07.07.2007, 23:14

БензиН

Познающий

Регистрация: 26.11.2006

Сообщений: 31

Провел на форуме:
192499

Репутация: 3

Дело в том что я незнаю как может кинеш код.

#195

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..

#196

07.07.2007, 23:34

n3m0

Участник форума

Регистрация: 11.05.2007

Сообщений: 149

Провел на форуме:
6373157

Репутация: 247

Создаеш Две формы. На первую кидаеш компонент Label1. Кликаеш на него Два Раза. И пишеш код вызова Второй формы: Form2.Show
Вот пример::

procedure TForm1.Label1Click(Sender: TObject);
begin
Form2.Show;
end;

#197

07.07.2007, 23:35

infernal-team

Познающий

Регистрация: 04.07.2007

Сообщений: 56

Провел на форуме:
329032

Репутация: 8

Если чел просит видимо нужно выложит =), че глупые вопросы задаеш?!

#198

07.07.2007, 23:44

infernal-team

Познающий

Регистрация: 04.07.2007

Сообщений: 56

Провел на форуме:
329032

Репутация: 8

Попрошайка кароче все сделал правильно, но эта функция выдает предупреждение на сворачивание а мне нужно чтобы свернуть и развернуть не функцианировали.

#199

07.07.2007, 23:50

infernal-team

Познающий

Регистрация: 04.07.2007

Сообщений: 56

Провел на форуме:
329032

Репутация: 8

Что нужно:
1. Сделать на форме ссылку
2. Сделать нефункционирующими и прозрачными кнопки свернуть и развернуть
3. Сделать переход на другую форму через бутон
Пока на этом все.

#200

08.07.2007, 00:22

Попрошайка

Новичок

Регистрация: 14.06.2007

Сообщений: 25

Провел на форуме:
88174

Репутация: 6

Цитата:

Сообщение от infernal-team

Мда...

Вот дерзай, только какой смысл обрабатывать сообщения по развёртыванию формы, когда гораздо проще просто убрать эти кнопки...

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..

Страница 20 из 677

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2569	10.05.2026 13:27
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход