Новые книги
 Черный PR сегодня активно перемещается в Интернет. В свое время кольт сделал людей равными. Сегодня Интернет уравнял финансово сильных и слабых в медиапространстве. Глобальная сеть позволяет рядовому человеку разорить могущественную корпорацию. Маленькая компания может эффективно противостоять транснациональному монстру, не располагая никакими финансами. Умение отражать информационные атаки стало на редкость насущной проблемой для любого бизнеса.В этой книге показаны все необходимые для отражения информационного нападения в Интернет инструменты и раскрыты секреты их применения. |
 Вниманию читателя предлагается двадцать увлекательных интервью Иосифа Гольмана с российскими и зарубежными мастерами рекламы: Олегом Ощепковым, Эркеном Кагаровым, Петером Небелем, Владом Васюхиным, Ириной Морозовой, Алексеем Голиковым и другими. В суждениях, примерах из жизни, биографиях известных в нашей стране профессионалов как в зеркале отражаются не только история, но и состояние, болевые точки, потенциал и перспективы современной российской рекламы.Эта книга будет полезна всем, кто интересуется рекламой, кто ее использует и кто на ней зарабатывает. |
Вопрос и Ответ 59
Вопросы и Ответы
- Создать кнопку;
- Установить необходимые свойства этой кнопки.
............
procedure TForm1.FormCreate(Sender: TObject);
begin
MyButton := TButton.Create(Self);
WITH MyButton DO BEGIN
Parent := Self;
Caption := 'Кнопка';
Left := 0;
Top := 0;
OnClick := MyButtonDown;
END;
end;
............
PROCEDURE TForm1.MyButtonDown(Sender: TObject);
BEGIN
WITH Sender AS TButton DO
MessageDlg('Нажата '+Caption, mtInformation, [mbOk], 0);
END;
............
procedure TForm1.FormDestroy(Sender: TObject);
begin
MyButton.Free;
end;
............
P.S. Таким же образом создаются и другие компоненты.
59. Как создать кнопку во время работы приложения?
Для создания кнопки, во
время работы приложения, необходимо выполнить
всего два шага: При правильном создании объекта, в
данном случае кнопки, этот объект при
уничтожении формы будет автоматически
уничтожен, но желательно всегда самим уничтожать
все объекты созданные в процессе работы
приложения. Это убережет Вас от многих проблем. ............ ............ { Public declarations } end;
public
MyButton: TButton;
PROCEDURE MyButtonDown(Sender: TObject);
...предыдущая страница первая...
оглавление