Verschiedenes Verhalten zw. DesignTime und Runtime

[TheMiller]

Hey...

Ich habe meine Komponente mit eurer Hilfe jetzt fertig und habe sie bisher immer dynamisch erstellt (zur Laufzeit). Das klappt wunderbar und es wird alles richtig angezeigt. Doch wenn ich die Komponente zur Designtime auf das Formular ziehe und dann das Programm starte, dann wird die Komponente erst angezeigt, wenn ich einmal mit der Maus drüber gefahren bin...

Hier der QuellCode der Komponente

Delphi-Quellcode:

constructor TImageButton.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Bitmap:=TBitmap.Create;
  Width:=150;
  Height:=25;
  Glyph.LoadFromFile('C:\Button.bmp');
end;

procedure TImageButton.Paint;
var
  TextWidth, Textheight: Integer;
  PosX, PosY: Integer;
begin
  Canvas.Draw(0,0, Glyph);
  Canvas.Brush.Style:=bsClear;
  TextWidth:=Canvas.TextWidth(Caption);
  Textheight:=Canvas.TextHeight(Caption);
  PosX:=((Width div 2) - (TextWidth div 2));
  PosY:=((Height div 2) - (TextHeight div 2));
  Canvas.TextOut(PosX, PosY, Caption);
end;

Konnte selbst leider nicht rausfnden, woran das liegt.

[mkinzler]

Versuch mal im Konstruktor den Redraw deiner Komponente zu erzwingen.

BTW. Ich würde den Pfad auf das Bild nicht fest im Code verankern sondern das Bild fest in der Ressource veranker. Du könntest ja als nächstes den Benutzer das Bild selber auswählen lassen.

[TheMiller]

Redraw ist gut... Habe versucht, die Prozedur RePaint aufzurufen, aber das bringt nichts. Paint kann ich nicht aufrufen, da dies eine AV bringt und Redraw gibt es direkt nicht.

Achso, und den Link habe ich doch nur als Test fest verankert. Resourcen wird es nicht geben, aber der User soll dann selbst Bilder wählen können.

[TheMiller]

... oder muss ich selbst eine funktion schreiben, die meinen Button "redrawed" ?