Менять название кнопки

[Shevali]

Подскажите новичку. Можно ли, в уже готовой (откомпилированной) программе, пользователю изменять название кнопок. Допустим, название стоит по умолчанию, а пользователь хочет изменить его на своё (входит например в настройки, пишет своё название, жмёт ентер и название кнопки меняется).
Спасибо.

[Evgeniy26]

Button1.Caption := Edit1.Text

[MalCer]

...
Опоздал, извиняюсь

[uberchel]

При нажатии ENTER

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = 13  then Button1.Caption:= Edit1.Text;
end;

[Evgeniy26]

Сообщение от uberchel

При нажатии ENTER

Пусть хоть подумают.

[Shevali]

Уважаемые программисты, ниже приведён код маленькой программы (управляющей внешней нагрузкой через LPT порт), не могли бы подсказать. как изменить процедуру кнопки, чтобы работала так, как Вы написали (и как хотелось бы мне).


unit Unit1;

interface

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

function Inp32(PortAdr: word): byte; stdcall; external 'inpout32.dll';
function Out32(PortAdr: word; Data: byte): byte; stdcall; external 'inpout32.dll';

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Port: word;
Data: Byte;
begin
Data:= 1;
Port:= 888;
Out32(Port, Data);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Port: word;
Data: Byte;
begin
Port:= 888;
Data:= 0;
Out32(Port, Data);
end;

end.

-------------------------------------------------------------------
А ниже описание формы и кнопки

object Form1: TForm1
Left = 105
Top = 160
Width = 323
Height = 159
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 8
Top = 80
Width = 137
Height = 41
Caption = 'Включить 1 лампу'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 168
Top = 80
Width = 137
Height = 41
Caption = 'Выключить 1 лампу'
TabOrder = 1
OnClick = Button2Click
end
end


Спасибо.

[Evgeniy26]

Кидайте на форму Edit переходите на вкладку Events в Object Inspector кликайте два раза по событию OnKeyDown и всталяйте код который предоствил uberchel

[Shevali]

Спасибо за совет.

[Shevali]

Действительно работает. А можно сделать так, чтобы окошки edit были в дочерней форме. Открыл к примеру к примеру дочернию форму, а там изменил, чтобы на главной форме не было лишних объектов.

[DennerV]

Сообщение от Shevali

А можно сделать так, чтобы окошки edit были в дочерней форме.

Можно толко надо будет дочернию форму добавить к главной (Alt+F11) и потом на дочерней форме писать Form2.Button1.Caption:= ...;