Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Eigene Standard-SpeedButtons mit Glyph


mambo - Mi 04.09.02 11:25
Titel: Eigene Standard-SpeedButtons mit Glyph
Hallo !

Ich möchte mir eigene, speziell gestaltete SpeedButtons, die ich in fast jedem Formular brauche, als Komponenten erstellen.

Dazu habe ich einfach eine Komponente von TSpeedButton abgeleitet.
im Constructor Create habe ich folgenden Code:

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
constructor TStdOkButton.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  Width := 90;
  Height := 22;
  Flat := True;
  Transparent := False;
  Caption := '&OK';
  Glyph.LoadFromFile('C:\bitmaps\ok.bmp');

end;

wenn ich nun die Anwendung, die diese Komponente beinhaltet auf einem anderen PC starte, dann findet das Programm natürlich die Bitmap-Datei nicht mehr!!!!!!!

Wie kann ich eine Bitmap-Datei in eine Komponente DIREKT einbinden ???
und wie kann ich diese Bitmap dann dem Button-Glyph zuweisen????

Danke für Eure Hilfe !!!!
Heinz


SvenAbeln - Mi 04.09.02 12:00

Hallo,

das geht mit einer Resource Datei.

Erstelle mit dem BildEditor von Delphi eine Resource Datei und
füge dieser dein BMP hinzu.

Im Quelltext schreibst du dann im Implementation Teil

Quelltext
1:
{$R Datei.res}                    


und anstatt

Quelltext
1:
 Glyph.LoadFromFile                    

verwendest du jetzt

Quelltext
1:
 Glyph.LoadFromResourceName(HInstance,'Name des Bitmaps');