Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Рита89
0 / 0 / 0
Регистрация: 22.09.2019
Сообщений: 9
1

При выборе соответствующей кнопки менять вид отображения рамки панели: "выпуклая", "вдавленная", "отсутствует"

22.09.2019, 15:30. Просмотров 890. Ответов 3
Метки нет (Все метки)

Составьте программу, которая при выборе соответствующей командной кнопки, ме-
няет вид отображения рамки панели «выпуклая», «вдавленная», «отсутствует».

Как это сделать в Лазарусе? Всем спасибо!
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.09.2019, 15:30
Ответы с готовыми решениями:

Внешний вид панели: приподнятая, вдавленная, плоская с выпуклым/вдавленным бортиком
До недавнего времени я программировал в С++Builder, а теперь перешёл на C#. Возникает проблема с...

Php как сделать чтобы при выборе соответствующей кнопки (или html celect) менялось таблица ?
php как сделать чтобы при выборе соответствующей кнопки (или html celect) менялось таблица ? чтобы...

Изменить вид отображения на панели задач
Как сделать, чтобы похож был на Висту. Это когда каждый запущенный экземпляр проги отображается...

Получение ссылки на определенный радиопоток при выборе соответствующей радиостанции в ComboBox
Такая проблема:Есть TextBox и ComboBox + WMPlayer,что считывает у меня url трек. Я для...

3
ValentinNemo
1537 / 451 / 310
Регистрация: 15.01.2019
Сообщений: 1,477
23.09.2019, 04:24 2
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
unit Zadanie145unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Panel1.BevelInner:= bvNone;
  Panel1.Repaint;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Panel1.BevelInner:= bvLowered;
  Panel1.Repaint;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Panel1.BevelInner:= bvRaised;
  Panel1.Repaint;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  Panel1.BevelInner:= bvSpace;
  Panel1.Repaint;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  Panel1.BevelOuter:= bvNone;
  Panel1.Repaint;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
  Panel1.BevelOuter:= bvLowered;
  Panel1.Repaint;
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
  Panel1.BevelOuter:= bvRaised;
  Panel1.Repaint;
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
  Panel1.BevelOuter:= bvSpace;
  Panel1.Repaint;
end;
 
end.
0
Вложения
Тип файла: zip Zadanie145.zip (338.4 Кб, 2 просмотров)
ValentinNemo
1537 / 451 / 310
Регистрация: 15.01.2019
Сообщений: 1,477
23.09.2019, 04:38 3
Можно сделать даже более сложный вариант.
0
Вложения
Тип файла: zip Zadanie145a.zip (339.5 Кб, 4 просмотров)
D1973
Модератор
5839 / 3686 / 1645
Регистрация: 21.01.2014
Сообщений: 15,497
Записей в блоге: 3
Завершенные тесты: 1
23.09.2019, 07:00 4
ValentinNemo, ну и наворотили Вы текста... А вся задача решается несколькими кликами мыши в инспекторе объектов и 2 строками кода...
Рита89,
1. На форме располагаете панель (свойство BevelWidth = 5, BevelInner = bvNone, BevelOuter = bvNone) и 2 компонента RadioGroup, для которых свойства Items и Caption установить как на скрине. Для обеих этих компонентов свойство ItemIndex = 0
2. Создать обработчик события OnClick для компонента RadioGroup1, в котором написать:
Pascal
1
2
3
4
5
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  Panel1.BevelInner := TBevelCut(RadioGroup1.ItemIndex);
  Panel1.BevelOuter := TBevelCut(RadioGroup2.ItemIndex);
end;
3. Назначить этот обработчик для события OnClick второго компонента RadioGroup...
1
Миниатюры
При выборе соответствующей кнопки менять вид отображения рамки панели: "выпуклая", "вдавленная", "отсутствует"  
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.09.2019, 07:00

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

При выборе select менять картинку
Имеется селект <select name="variant_id" id="variant-select"> <span><option...

Как менять вид курсора при наводе на PictureBox?
Как менять текстуру курсора при наводе на pictureBox?

При выборе определенного значения в ComboBox менять значение в Label
Здравствуйте! Скажите, как мне сделать, чтобы при выборе определенного значения в ComboBox...

кнопка отказывается менять свой вид при наведении и активации
Доброго времени суток товарищи! Итак, ситуация такова: Решил сделать на сайте красивую кнопочку,...


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

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

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