Delphi 7 Traning
Death:j Дата: Суббота, 03.09.2011, 19:41 | Сообщение # 1
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
Анимация (Урок + исходник)
Code
procedure TForm1.Timer1Timer(Sender: TObject); begin Timer2.Enabled :=true;Label2.Visible :=true;Label1.Visible :=false;Timer1.Enabled :=false; end; procedure TForm1.Timer2Timer(Sender: TObject); begin Timer1.Enabled :=true;Label2.Visible :=false;Label1.Visible :=true;Timer2.Enabled :=false; end; end.
Пояснения : Кидаем на форму 2 Timer'a , со вкладки System , и 2 Label'a. Timer1 Code
Timer2.Enabled :=true;Label2.Visible :=true;Label1.Visible :=false;Timer1.Enabled :=false; end;
Timer2 * таймер 2 по дефу выключён (Timer2.Enabled :=false;) Code
Timer1.Enabled :=true;Label2.Visible :=false;Label1.Visible :=true;Timer2.Enabled :=false; end;
Label1 Code
Label1.Visible :=true;
Label2 Code
Label2.Visible :=false;
Жмем F9 (Компилируем) , смотрим результат. Скачать исходники ↓↓↓
Сообщение отредактировал Death:j - Суббота, 03.09.2011, 19:55
Death:j Дата: Суббота, 03.09.2011, 20:02 | Сообщение # 2
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
Delphi 7 Сообщение
Code
procedure TForm1.Button1Click(Sender: TObject); begin If Sender is TButton then showmessage ('forum4ik.at.ua Все о Соц. сетях') end; end.
Пояснения: Кидаем на форму 1 Button со вкладки Standart , 2 раза клакаем по нему и пишем Code
if Sender is TButton then showmessage ('ваш текст')
Компилим (F9) , Вуаля Скачать Исходник↓↓↓
Сообщение отредактировал Death:j - Суббота, 03.09.2011, 20:03
Death:j Дата: Суббота, 03.09.2011, 20:09 | Сообщение # 3
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
Пишем фейк на Delphi
Скачать Исходник↓↓↓
Сообщение отредактировал Death:j - Суббота, 03.09.2011, 20:12
Death:j Дата: Суббота, 03.09.2011, 20:15 | Сообщение # 4
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
Быстрые Статусы Вконтакте Скачать: Исходник:
Сообщение отредактировал Death:j - Суббота, 03.09.2011, 20:16
Maksim Дата: Суббота, 03.09.2011, 20:59 | Сообщение # 5
Хороший
Группа: Пользователи
Сообщений: 98
Статус: Offline
норм
Death:j Дата: Суббота, 03.09.2011, 21:04 | Сообщение # 6
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
Спасибо
Death:j Дата: Вторник, 06.09.2011, 08:17 | Сообщение # 7
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
Delphi. Пароль в виде звёздочек:
Пояснения: Quote
В свойстве Edit'a или LabeledEdit'a во вкладке Properties ищем PasswordChar#0 и заменяем на * или x
Сообщение отредактировал Death:j - Вторник, 06.09.2011, 08:18
Death:j Дата: Вторник, 06.09.2011, 08:28 | Сообщение # 8
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
Delphi Работа с Visible
Параметр Visible отвечает за видимость объектов (спс к3п). Допустим мы создали маленькую форму авторизации , и что-бы скрыть пока неактивные компоненты во вкладке Properties выбираем Visible :=false; Допустим мы создали форму , 2 кнопки 2 едита , и хотим скрыть вторую кнопку , ставим параметрCode
Button2.Visible :=false;
Нужно теперь задать процедуру , при которой кнопка должна появиться. 2 раза кликаем на первую кнопку и пишем Code
Button2.Visible :=true;
. Вот и всё, осталось подключить моск , и юзать.
Гость =) Дата: Вторник, 06.09.2011, 13:56 | Сообщение # 9
Группа: Гости
Quote (Death:j )
Быстрые Статусы Вконтакте
исходник перезалей
Death:j Дата: Вторник, 06.09.2011, 14:55 | Сообщение # 10
5
Группа: Пользователи
Сообщений: 60
Статус: Offline
Сегодня будет еще парочка статей ;)