Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Создание объектов в Delphi

Автор: (ipher 18.11.2003, 13:20

Проблема, помогите пожалуйста!!!
Создаю объект(Я там выделил красным нужный кусок кода)
Unit logic;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls, jpeg;
Type
TImageClass = class(TImage)
Private
Public
End;

TfrmLogic = class(TForm)
cmdNewAnd: TSpeedButton;
cmdNewOr: TSpeedButton;
imgBackGround: TImage;
Procedure cmdNewAndClick(Sender: TObject);
Procedure FormClick(Sender: TObject);
Procedure cmdNewOrClick(Sender: TObject);
Procedure FormCreate(Sender: TObject);
Private
Public
End;
Var
frmLogic: TfrmLogic;
And_i, Or_i, creating : Integer;
Implementation
{$R *.dfm}

//============================================================================

Procedure TfrmLogic.cmdNewAndClick(Sender: TObject);
Begin
creating := 1;
cmdNewAnd.Glyph.LoadFromFile('src\And_bmp_1.bmp');
cmdNewOr.Glyph.LoadFromFile('src\Or_bmp.bmp');
End;

//============================================================================

Procedure TfrmLogic.cmdNewOrClick(Sender: TObject);
Begin
creating := 2;
cmdNewAnd.Glyph.LoadFromFile('src\And_bmp.bmp');
cmdNewOr.Glyph.LoadFromFile('src\Or_bmp_1.bmp');
End;

//============================================================================

Procedure TfrmLogic.FormClick(Sender: TObject);
Var NewElement : TImageClass;
Begin
Case creating of
//============================================================================
1:
Begin
NewElement := TImageClass.Create(self);
NewElement.Visible := False;
NewElement.Parent := Self;

Inc(And_i);

NewElement.Left := Mouse.CursorPos.X - 25;
NewElement.Top := Mouse.CursorPos.Y - 25;

NewElement.Name := 'AndElementN' + IntToStr(And_i);
NewElement.Picture.LoadFromFile('src\And.bmp');
NewElement.AutoSize := True;
NewElement.Visible := True;
creating := 0;
cmdNewAnd.Glyph.LoadFromFile('src\And_bmp.bmp');
End;
//============================================================================
2:
Begin
NewElement := TImageClass.Create(self);
NewElement.Visible := False;
NewElement.Parent := Self;

Inc(Or_i);

NewElement.Left := Mouse.CursorPos.X - 25;
NewElement.Top := Mouse.CursorPos.Y - 25;

NewElement.Name := 'OrElementN' + IntToStr(Or_i);
NewElement.Picture.LoadFromFile('src\Or.bmp');
NewElement.AutoSize := True;
NewElement.Visible := True;

creating := 0;
cmdNewOr.Glyph.LoadFromFile('src\Or_bmp.bmp');
NewElement.BringToFront;
End
Else
Begin
creating := 0;
cmdNewOr.Glyph.LoadFromFile('src\Or_bmp.bmp');
cmdNewAnd.Glyph.LoadFromFile('src\And_bmp.bmp');
End;
End;
End;

//============================================================================

Procedure TfrmLogic.FormCreate(Sender: TObject);
Begin
And_i := 0;
Or_i := 0;
creating := 0;
End;

//============================================================================

End.

Ну так вот, свойства нового объекта прекрасно заполняются, а как мне этому новому объекту(NewElement) повесить какую-нибудь процедуру по событию "OnClick"?
Заранее спасибо (ipher

Автор: <Spawn> 18.11.2003, 15:45

Код

procedure TForm1.MyComponentSuperClick(Sender: TObject);
begin
end;
...
NewElement.OnClick:= MyComponentSuperClick;

Автор: (ipher 19.11.2003, 09:20

Большой пасиб. Всё оказалось просто как два рубля! А чего то протупил