как в Делфи создать кнопочку "ОК". подробности внутри темы....

[Кристина2008]

Есть программа на Делфи для определения состояния регистров (4-х). надо теперь создать в Делфи 4 кнопочки "ОК" чтоб можно было нажать и около этой кнопочки в окошке вывелось состояние одно регистра. таких кнопочек надо 4 и напротив окошко пустое... вот.. помогите,пожалуйста...

[Terran]

Сообщение от Кристина2008

Есть программа на Делфи для определения состояния регистров (4-х). надо теперь создать в Делфи 4 кнопочки "ОК" чтоб можно было нажать и около этой кнопочки в окошке вывелось состояние одно регистра. таких кнопочек надо 4 и напротив окошко пустое... вот.. помогите,пожалуйста...

Вам нужно кинуть на форму 4 кнопочки Button и 4 Edit. И потом в обработчике события на нажатие кнопки делать проверку регистров, а результат выводить в Edit.

[Alter]

наверно это:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Function Getax:Word;
  Function Getbx:Word;
  Function Getcx:Word;
  Function Getdx:Word;

implementation

{$R *.dfm}

Function Getax:Word;
var r :Word;
begin
 asm
  mov r, ax
 end;
 result := r;
end;

Function Getbx:Word;
var r :Word;
begin
 asm
  mov r, bx
 end;
 result := r;
end;

Function Getcx:Word;
var r :Word;
begin
 asm
  mov r, cx
 end;
 result := r;
end;

Function Getdx:Word;
var r :Word;
begin
 asm
  mov r, dx
 end;
 result := r;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text := IntToStr(Getax);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Edit2.Text := IntToStr(Getbx);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 Edit3.Text := IntToStr(Getcx);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 Edit4.Text := IntToStr(Getdx);
end;

end.