Отправляет email-рассылки с помощью сервиса Sendsay

Элементарный код на Delphi

Подписаться Бесплатная новостная рассылка Подписчиков 20 RSS
  Август 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 12-08-2003

Автор
Ирина

Статистика

20 подписчиков
0 за неделю
←   Все выпуски   →

Элементарный код на Delphi


Информационный Канал Subscribe.Ru 
Выпуск №2

Как и в прошлом выпуске продолжим эксперементировать со стандартными компонетами.

Поместим на форму Panel1, в свойствах панели укажем Action = alTop, панель растянется
по верху формы. На панель поместим MainMenu1 и в свойствах Items создадим два
раздела:
файл - выход
Работа - Копировать Обновить Показать скрытую кнопку
Следующим шагом поместим на форму Edit1, Edit2, Edit3 выделим их мышкой на форме
и очистим их (свойствах Text). Далее поместим Button1 и Button2. В свойствах
Button2 поставим visible=false. И последним нашим шагом будет размещение около
Edit1 и Edit2 - CheckBox1 и CheckBox2.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    Edit1: TEdit;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure N4Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N4Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
{При нажатии на кнопку Button1 свойство Button2 изменится с невидимого, на видимый}
form1.Button2.Visible:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{При нажатии на кнопку Button2 изменится свойство Visible и кнопка опять станет
невидимой}
form1.Button2.Visible:=false;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
{Копируем информацию из Edit1 в Edit2}
form1.Edit1.Text:=form1.Edit2.Text;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
{Очищаем Edit1 и Edit2 методом присваивания им пустого значения}
form1.Edit1.Text:='';
form1.Edit2.Text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
{Проверяем, если CheckBox1.Checked=true (нажат крестик), то тогда в Edit3.Text
появляется сообщение, так же мы проверяем CheckBox2. В третьей проверки мы смотрим,
что если выбраны оба CheckBox'а, то выводится сообщение "Выберите что то одно"}
if form1.CheckBox1.Checked=true then form1.Edit3.Text:='Cool 1';
if form1.CheckBox2.Checked=true then form1.Edit3.Text:='Cool 2';
if (CheckBox1.Checked=true)and(CheckBox2.Checked=true) then Edit3.Text:='Выберите
что-то одно';
end;
end.

Удачных Вам экспериментов!
Irina_Kholtobina@KhakasNet.ru
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное