Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.95/37: Рейтинг темы: голосов - 37, средняя оценка - 4.95
НАРУШИТЕЛЬ
640 / 355 / 2
Регистрация: 10.11.2011
Сообщений: 1,749
Записей в блоге: 5
1

надо чтобы принажатии кнопки Button менялся цвет и шрифт, а при повторном нажатии был в исходном положении, т.е каим был до нажатия кнопки .

06.04.2012, 13:49. Просмотров 7433. Ответов 4
Метки нет (Все метки)

Вот моя программка:
Delphi
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
32
33
34
35
36
37
38
39
40
41
42
43
unit Uni;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Font.Color:=clPurple;
Label1.Font.Name:='Monotype Corsiva';
Label1.Font.Size:=16;
end;
 
end.
Пожалуйста помогите с задачей очень сильно хочу разобраться и сдать ее, только я не знаю как при повторном нажатии кнопки Button вернуть текст в исходное положение., каким он был до нажатия кнопки. Заранее благодарен. Спасибо +1.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.04.2012, 13:49
Ответы с готовыми решениями:

Как написать цикл для кнопки Button, чтобы при нажатии менялся фон в Image?
Подскажите пожалуйста, как написать цикл для кнопки Button чтобы при нажатии менялся фон в виде...

Как поменять цвет кнопки при ее нажатии, а при наведении чтоб цвет не менялся?
//css файл .mymegabutton{ background: blue; } .hvr{ background: green; } .act{...

Сделать так,чтобы при выборе одного товара из таблицы magazine через галочки,потом нажатии кнопки подтверждения-этот товар был помещен в таблицу Zakaz
Есть 2 таблица,одна magazine (id,name,price) и ZakazAdmina(id,name ,id_user,id_tovar,status),я не...

Наследование и события: чтобы при нажатии кнопки одного класса менялся текст в другом
Здравствуйте! Есть 2 класса, унаследованных от GroupBox: 1) На первом присутствует Button: class...

4
61 / 44 / 6
Регистрация: 15.01.2012
Сообщений: 167
06.04.2012, 14:06 2
сейчас
0
НАРУШИТЕЛЬ
640 / 355 / 2
Регистрация: 10.11.2011
Сообщений: 1,749
Записей в блоге: 5
06.04.2012, 14:07  [ТС] 3
что-то у меня не совсем работает.
0
61 / 44 / 6
Регистрация: 15.01.2012
Сообщений: 167
06.04.2012, 14:12 4
Delphi
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
unit Uni;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Color:TColor;
  FontName:String;
  FontSize:Integer;
  ChangeFlag:Boolean;
  
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
    begin
        Color:=Label1.Font.Color;
        FontName:=Label1.Font.Name;
        FontSize:=Label1.Font.Size;
        ChangeFlag:=True;
    end;
procedure TForm1.Button1Click(Sender: TObject);
    begin
        ChangeFlag := not ChangeFlag;
        if ChangeFlag then
            begin
                Label1.Font.Color:=clPurple;
                Label1.Font.Name:='Monotype Corsiva';
                Label1.Font.Size:=16;
            end
        else
            begin
                Label1.Font.Color:=Color;
                Label1.Font.Name:=FontName;
                Label1.Font.Size:=FontSize;
            end;
    end;
end.
Разбирайся, пожалуйста.

З.Ы. Писал на коленке
0
НАРУШИТЕЛЬ
640 / 355 / 2
Регистрация: 10.11.2011
Сообщений: 1,749
Записей в блоге: 5
06.04.2012, 14:13  [ТС] 5
Благодарю
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.04.2012, 14:13

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как сделать, чтобы при нажатии кнопки Push Button загоралась та или иная кнопка Radio Button
вопрос: Как сделать,чтобы при нажатие кнопки Push Botton загоралась та или иная кнопка Radio Button?

Нажатием левой кнопки мыши выбирать и запоминать цвет, при нажатии правой кнопки мыши - устанавливать выбранный цвет
Люди добрые, киньте какой-нибудь рабочий .asm для masm, похожий на решение следующей задачи, а то...

Как сделать так, чтобы при нажатии виртуальной кнопки (button) приложение закрывалось
Как сделать так, чтобы при нажатии виртуальной кнопки (button) приложение закрывалось

Как сделать чтобы при нажатии кнопки чтобы активировались все неактивные кнопки?
На форме имеются три кнопки. При открытии формы кнопка "button1" становится неактивна:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.