Speedbutton während der Laufzeit

[Ping Pong]

Hallo.

Ich möchte einen Speedbutton erst während der Laufzeit des Programmes erstellen lassen.
Dies habe ich bis jetzt so gelöst:

var
Speed1:array[1..100] of TSpeedbutton;



Speed1[anzahl]:=TSpeedbutton.Create(self);
Speed1[anzahl].Top:=anzahl*40;
Speed1[anzahl].Left:=608;

Nun möchte ich dem Button noch ein Bild hinzufügen (also Glyph) und dem Button noch eine Action zuweisen.
Ich möchte aber das Bild nicht erst von der Festplatte laden, sondern aus dem Programm heraus.
Also nicht: Speed1[anzahl].Glyph.Loadfromfile
Hab mir irgendwie überlegt, ob das mit ner Imagelist geht???!!

Cu PingPong

[MrKnogge]

Hi !

Du kannst das BitMap als Ressource einbinden, und dann zur Laufzeit laden.

Weist du wie man eine Ressource-Datei erstellst und einbindest ?

[Ping Pong]

Nich so wirklich!

[Niko]

Zitat:

Zitat von Ping Pong

Hab mir irgendwie überlegt, ob das mit ner Imagelist geht???!!

Ja, du kannst das Bild mit folgendem Code laden:

Delphi-Quellcode:

ImageList1.GetBitmap(anzahl, Speed1[anzahl].Glyph);

[Ping Pong]

Jo, mit dem Befehl von Niko geht´s. Thx.
Un wie weise ich dem Button nun noch eine Funktion zu?

[Niko]

Willst du dem Button ein Ereignis (OnClick, ...) zuweisen oder die Eigenschaft Action setzen?

[MrKnogge]

Du musst die Procedure erst schreiben, und dann zuweisen.

Delphi-Quellcode:

procedure MyProcedur(Sender: TObject);
begin
  // Das soll ausgeführt werden
end;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  BitBtn1.OnClick := MyProcedur;
end;

[Ping Pong]

Weiss nich wirklich wo da der Unterschied liegt, will aber damit ereichen, dass wenn ich auf den Button drücke, z.B. label2.caption:='Test' gesetzt wird oder eine procedure ausgeführt wird.

[Ping Pong]

@MrKnogge
Hab ich mir auch schon gedacht, dann kommt aber:
[Fehler] Unit1.pas(170): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

[MrKnogge]

Welche Dlphi Version benutzt du denn ?
Action Zuweisung geht doch nur mit pro, oder ?