Einzelnen Beitrag anzeigen

Benutzerbild von shareholder
shareholder

Registriert seit: 1. Nov 2003
Ort: Denmark, Lolland, Marielyst
280 Beiträge
 
Delphi 7 Enterprise
 
#1

Access Violation, TSpeedButton

  Alt 7. Jun 2004, 15:47
Wenn ich ganz viele Schnelle Klicks mache gibt es eine Access Violation.

Hier der Code:

Delphi-Quellcode:
procedure TForm1.BtnMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssRight in Shift) then
    if (TSpeedButton(Sender).Glyph.Empty = TRUE) then
      TSpeedButton(Sender).Glyph.LoadFromFile('bild.bmp')
    else
      ShowMessage('hat schon ein bild!');
end;
ich hoffe ihr könnt mir sagen warum,
die procedure ist 1200 buttons zugeordnet.
Mastdarmpapillenentzündung ist cool
  Mit Zitat antworten Zitat