VPF::повесить обработчик кнопки на событие OnChange

mashka4190

Дата 20.6.2014, 17:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 20.6.2014

Репутация: нет
Всего: нет

повесить обработчик кнопки на событие OnChange SpinEdit'a

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    ColorBox1: TColorBox;
    ColorBox2: TColorBox;
    ColorBox3: TColorBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    SpinEdit1: TSpinEdit;
    Button2: TButton;
    ColorBox4: TColorBox;
    N2: TMenuItem;
    Label4: TLabel;
    N3: TMenuItem;
    ColorBox5: TColorBox;
    Label5: TLabel;
    Label6: TLabel;

    procedure N1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

const n=6;
var
  Form1: TForm1;
  xc,yc,r,x1,y1,r1,x2,y2,r2,x3,y3,r3:integer;
  u,du:real;
  f:boolean;
  col:array [0..10] of TColor;

implementation

uses Unit2;

{$R *.dfm}
procedure Krug(x,y,r,c:integer);
begin
with Form1.PaintBox1.Canvas do
 begin
  pen.Color:=c;
  brush.Color:=c;
  ellipse(x-r,y-r,x+r,y+r);
 end;
end;

procedure krugr(xc,yc,r,c:integer);
 var q: integer;
begin
  if c<(Form1.SpinEdit1.Value) then
    for q:=0 to n-1 do
    begin
    r1:=round(r/(1+1/sin(pi/n)))-1;
    x1:=round(xc+(r-r1)*cos(u+q*2*pi/n));
    y1:=round(yc+(r-r1)*sin(u+q*2*pi/n));
    Krug(x1,y1,r1,col[c]);
    Krugr(x1,y1,r1,c+1);
    end;
end;


procedure TForm1.N1Click(Sender: TObject);
const
    CRCR = #13#10#13#10;
begin
 MessageDlg(
        'Delphi 7: Êðóãîâîé ôðàêòàë' + CRCR +
        'Ñîçäàòåëü: Êàðïîâè÷ Ì.À'
        , mtInformation, [mbOK], 0);
end;





procedure TForm1.Button2Click(Sender: TObject);
begin

   col[0]:=ColorBox1.Selected;
col[1]:=ColorBox2.Selected;
col[2]:=ColorBox3.Selected;
col[3]:=ColorBox4.Selected;
col[4]:=ColorBox5.Selected;
xc:=paintbox1.Width div 2;
yc:=PaintBox1.Height div 2;
if xc>yc then r:=yc else r:=xc;
Krug(xc,yc,r,col[0]);//ðèñóåì áëüøîé êðóã
krugr(xc,yc,r,1);
end;

procedure TForm1.N3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
 WinExec('hh.exe help.chm',SW_SHOW);
end;



procedure TForm1.SpinEdit1Change(Sender: TObject);
begin

end;

end.

Это сообщение отредактировал(а) mashka4190 - 20.6.2014, 17:51

PointerToNil

Дата 20.6.2014, 18:12 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 17.6.2013

Репутация: 2
Всего: 6

ну так в инспекторе объектов и повесь

mashka4190

Дата 20.6.2014, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 20.6.2014

Репутация: нет
Всего: нет

как?

Добавлено через 2 минуты и 43 секунды
все, разобралась)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »