type

[Nikolas_555]

так, а теперь скажите..
мне, для моего случая, нужно создать массив компонентов определенного типа, со всеми параметрами, как и у SpeedButton, только + ещё один тэг.
вот я начал всё обозначать:

type
   TButtonRec = record
      Tag1, Tag2 : Integer;
      Parent : TForm;
      Left : integer;
      Top : integer;
      Height : integer;
      Width : integer;
      Glyph : TagBitmap;
  end;
 
var
  Buttons: Array [1..81] of TButtonRec;
  SpeedButtonA1:TSpeedButton;

пока всё правильно?

Теперь, в процедуре создания формы, создаю и этот массив записи:

procedure TForm6.FormCreate(Sender: TObject);
 begin
// создание  buttons (массива кнопок)
  for I := Low(buttons) to High(buttons) do     // от первого компонента массива до последнего
    begin
     buttons[i] := SpeedButtonA1.Create(Owner);
     buttons[i].Parent := Form6;
     buttons[i].Left := XX[i];
     buttons[i].Top := YY[i];
     buttons[i].Height := 34;
     buttons[i].Width := 34;
     buttons[i].Tag1 := i;
     buttons[i].Glyph.LoadFromFile('путь');
     buttons[i].OnClick := SpeedButtonA1.Click;
     buttons[i].OnMouseEnter := SpeedButtonA1MouseEnter;
     buttons[i].OnMouseLeave := SpeedButtonA1MouseLeave;
    end;
End;
 
...
 
// процедуры событий SpeedButtonA1.Click; SpeedButtonA1MouseEnter; SpeedButtonA1MouseLeave;   заданы ниже, с ними проблем нет.

компилятор подчеркивается и ругается:
на Create - " Undeclared identifier: 'LoadFromFile' "
на LoadFromFile - " Undeclared identifier: 'LoadFromFile' "
на OnClick - "Undeclared identifier: 'OnClick' "

как я понял, ругается, потому что не обозначил эти события. как и где их записать, что бы всё работало?

[Stilet]

SpeedButtonA1 это имя переменной, а не класс. Это я к сведенью, чтоб указать тебе на некошерность создания объекта. Скажем так - не запрещено, но не по феншую.

на Create - " Undeclared identifier: 'LoadFromFile' "

Какая у тебя делфи? Посмоти в хелпе обладает ли твоя TSpeedButton таким методом у свойства Glyph. Насколько помню в D6 ее не было к примеру.

buttons[i].OnClick := SpeedButtonA1.Click;

Не правильно. Это процедура. Тебе нужно писать так:

buttons[i].OnClick := SpeedButtonA1OnClick;

Если конечно метод с таким объектом на форме определен.
Посмотри как ты с buttons[i].OnMouseEnter := SpeedButtonA1MouseEnter; сделал.

[Nikolas_555]

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

SpeedButtonA1 это имя переменной, а не класс. Это я к сведенью, чтоб указать тебе на некошерность создания объекта. Скажем так - не запрещено, но не по феншую.

Какая у тебя делфи? Посмоти в хелпе обладает ли твоя TSpeedButton таким методом у свойства Glyph. Насколько помню в D6 ее не было к примеру.

у меня Делфи 2007, там у SpeedButton-ов есть свойство Glyph.

[eval]

это какой-то бред, удалите его пока не поздно

[BDA]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure Click(Sender: TObject);
    procedure MouseLeave(Sender: TObject);
    procedure MouseEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyButton = class(TSpeedButton)
  private
    FTag2: Longint;
  published
    property Tag2: Longint read FTag2 write FTag2 default 0;
  end;

var
  Form1: TForm1;
  Buttons: Array [1 .. 5] of TMyButton;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i := Low(Buttons) to High(Buttons) do
  begin
    Buttons[i] := TMyButton.Create(Owner);
    Buttons[i].Parent := Form1;
    Buttons[i].Left := 20 + 100 * i;
    Buttons[i].Top := 30;
    Buttons[i].Height := 34;
    Buttons[i].Width := 34;
    Buttons[i].Tag2 := i;
    // Buttons[i].Glyph.LoadFromFile('путь');
    Buttons[i].OnClick := Click;
    Buttons[i].OnMouseEnter := MouseEnter;
    Buttons[i].OnMouseLeave := MouseLeave;
  end;
End;

procedure TForm1.Click(Sender: TObject);
begin
  showmessage('click');
end;

procedure TForm1.MouseEnter(Sender: TObject);
begin
  (Sender as TMyButton).Caption := 'enter';
end;

procedure TForm1.MouseLeave(Sender: TObject);
begin
  (Sender as TMyButton).Caption := 'leave';
end;

end.

Кнопки появляются, но насколько такой код верен, не могу сказать.

[Stilet]

там у SpeedButton-ов есть свойство Glyph.

А у этого свойства есть такой метод?
Хотя я сразу невнимательно глянул:

Glyph : TagBitmap;

Это что? Это зачем? У TagBitmap разве есть методы? Проверь.

[Nikolas_555]

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

Если конечно метод с таким объектом на форме определен.
Посмотри как ты с buttons[i].OnMouseEnter := SpeedButtonA1MouseEnter; сделал.

Этот компонент на форме определён, вот все события к нему:

procedure TForm6.SpeedButtonA1Click(Sender: TObject);
begin
     if (kol mod 2 <> 0) then
                          begin
                           ImageList1.GetBitMap(1,TSpeedButton(Sender).Glyph);
                          end

                         else
                          Begin
                           ImageList1.GetBitMap(2,TSpeedButton(Sender).Glyph);
                          End;
     F := False;
     kol:=kol+1;
end;

procedure TForm6.SpeedButtonA1MouseEnter(Sender: TObject);
begin
 if (F=True) then
     Begin
       if (kol mod 2 <> 0) then
       ImageList1.GetBitMap(1,TSpeedButton(Sender).Glyph)
                            else
       ImageList1.GetBitMap(2,TSpeedButton(Sender).Glyph);
     End;
end;

  procedure TForm6.SpeedButtonA1MouseLeave(Sender: TObject);
begin
 if (F=True) then
     TSpeedButton(Sender).Glyph.LoadFromFile('путь');

end;

[eval]

BDA вот что толку?
автор на этот код будет смотреть как баран на новые ворота..
для него что TButtonRec что TSpeedButton, разницы нет

[Stilet]

Этот компонент на форме определён, вот все события к нему:

Поясняю: SpeedButtonA1.Click; это вызов процедуры а не получение события.

[Nikolas_555]

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

А у этого свойства есть такой метод?
Хотя я сразу невнимательно глянул:

Это что? Это зачем? У TagBitmap разве есть методы? Проверь.

убрал.
тогда + ещё ошибка с Glyph.
" Undeclared identifier: 'Glyph' "