|
Delphi 7 Traning
|
|
| Death:j | Дата: Вторник, 06.09.2011, 17:33 | Сообщение # 11 |
 5
Группа: Пользователи
Сообщений: 60
Статус: Offline
| Гиперссылка из Label
1. Открываем Delphi, создаем новый проект на форму кидаем компонент, label с закладки standard. Сразу же давайте изменим у него цвет и размер шрифта. Делается это все в свойстве Font. Цвет я поставил чорный, а шрифт сделал жирным, далее в свойстве Cursor компонента Label выберите crHandPoint Делается это для того что бы при наведении на ссылку курсор приобретал форму пальчика.
2. Так теперь нам нужно указать Адрес Web ресурса на который будет попадать пользователь при клике по ссылке. Адрес будем указывать в свойстве Hint компонента Label. Т.Е прописываем там например http://www.forum4ik.at.ua
Все предварительная подготовка завершена. Сейчас в верху, после ключевого слова uses допишите SHELLAPI, теперь выделяем компонент Label и создаем на нем обработчик событий OnClick. Полный код того что должно находиться в обработчике представлен ниже, допишите к себе недостающие строки.
Code procedure TForm1.Label1Click(Sender: TObject);
begin
If (Sender is TLabel) then
with (Sender as Tlabel) do
ShellExecute(Application.Handle,PChar('open'),
PChar(Hint),
PChar(0),
nil,
SW_NORMAL);
end;
Сообщение отредактировал Death:j - Вторник, 06.09.2011, 17:34 |
| |
| |
| Death:j | Дата: Вторник, 06.09.2011, 17:35 | Сообщение # 12 |
|
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
| Учимся программно открывать пуск
Кинем на форму 1 буттон , в обработчике событий всего одна строка:
Code SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);
Компилим(F9) запускаем , и радуемся
|
| |
| |
| Death:j | Дата: Вторник, 06.09.2011, 17:36 | Сообщение # 13 |
|
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
| Завершение работы Windows Delphi
1 Буттон , обработчик событий :
Code procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage (FindWindow ('Progman', 'Program Manager'), WM_CLOSE, 0, 0);
end;
Компилим, тестим , радуемся
|
| |
| |
| Death:j | Дата: Вторник, 06.09.2011, 17:40 | Сообщение # 14 |
|
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
| Quote (Гость =)) исходник перезалей
Зарегаешся , доведу софт до ума ;D
Сообщение отредактировал Death:j - Вторник, 06.09.2011, 17:40 |
| |
| |
| Death:j | Дата: Вторник, 06.09.2011, 17:45 | Сообщение # 15 |
|
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
| Работа с компонентом RadioGroup
Работа с компонентом RadioGroup визуально украшает вашу программу , новичкам на заметку 
Сообщение отредактировал Death:j - Вторник, 06.09.2011, 17:45 |
| |
| |
| Death:j | Дата: Вторник, 06.09.2011, 17:55 | Сообщение # 16 |
|
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
| Пожалуй на сегодня хватит
|
| |
| |
| Death:j | Дата: Среда, 14.09.2011, 20:48 | Сообщение # 17 |
|
Группа: Гости
| come back 
|
| |
| |
| Death:j | Дата: Среда, 14.09.2011, 20:49 | Сообщение # 18 |
|
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
| pizdato
|
| |
| |
| Tolya | Дата: Среда, 14.09.2011, 21:38 | Сообщение # 19 |
|
5
Группа: Пользователи
Сообщений: 72
Статус: Offline
| блин... а на С++ уроки выложишь?
Только свои...
Или ты только в дефли шаришь?
|
| |
| |
| StiF | Дата: Четверг, 15.09.2011, 03:58 | Сообщение # 20 |
|
6
Группа: Пользователи
Сообщений: 145
Статус: Offline
| Перезалей исходник на смену статусов вк.
|
| |
| |
