ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
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..
|
|
|
|
08.07.2007, 00:36
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
Сообщение от Попрошайка
какой смысл обрабатывать сообщения по развёртыванию формы[/url]
Проста так задумано.
|
|
|
|
08.07.2007, 13:04
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от infernal-team
Что нужно:
1. Сделать на форме ссылку
2. Сделать нефункционирующими и прозрачными кнопки свернуть и развернуть
3. Сделать переход на другую форму через бутон
Пока на этом все.
1. Используй TLabel. т.е.
а) в сво-ве font выставляешь - Color = Blue;
б) изменяешь курсор на finger - че-то там... ))) не помню... поищи...
б) по событию OnMouseMove
Label1.Font.Style:=Label1.Font.Style+[fsUnderline];
в) по событию OnMouseLeave
Label1.Font.Style:=Label1.Font.Style-[fsUnderline];
2. ответили
3. событие OnClick у Button'a;
Form2.Show
(в секцию uses необходимо добавить модуль связанный с формой)
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
08.07.2007, 00:40
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
Чет я не догнал =), можно на пальцах?
|
|
|
|
08.07.2007, 01:05
|
|
Новичок
Регистрация: 14.06.2007
Сообщений: 25
Провел на форуме:
88174
Репутация:
6
|
|
Сообщение от infernal-team
Чет я не догнал =), можно на пальцах?
Ты про последнее изменение? Если да, то у формы не будет кнопок и её нельзя будет переместить, и изменить размер.
|
|
|
|
08.07.2007, 12:48
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
То что мне нужно не получилась, может ещё какнибудь можно?!
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
