Access Violation, TSpeedButton

[shareholder]

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.

[axelf98]

Zitat von shareholder:

die procedure ist 1200 buttons zugeordnet.

Dann hast du wahrscheinlich die Knöpfe kopiert, nachdem du dem "Original" die Prozedur gegeben hast. Dann verweisen nämlich alle anderen auf die gleiche Pozedur.

[shareholder]

nö, die prozedur wurde dynamisch jedem button zugeordnet.

[shmia]

Zitat von shareholder:

die procedure ist 1200 buttons zugeordnet.

Das ist ja Waaahnsinn ; zu viele Knöpfe.
Aber egal:

Delphi-Quellcode:

procedure TForm1.BtnMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // zur Sicherheit !!!!!
  // ein "normaler" Button und es knallt
  Assert(sender is TSpeedButton); 
 
  if (ssRight in Shift) then
    with TSpeedButton(Sender).Glyph do
       if Empty then
          LoadFromFile('bild.bmp')
       else
          ShowMessage('hat schon ein bild!');
end;