Accese koden til et oprettet object

var vist nok frmMain->InsertComponents(snakebite); istedet....

// implementer OnMouseDown event'en:

snakebite->OnMouseDown = myOnMouseDownEvent;

TForm1::myOnMouseDownEvent(System::TObject* Sender, TMouseButton
Button, Classes::TShiftState Shift, int X, int Y);
{
  // kode kode kode kode
}

takker :o) prøver jeg lige

Hmmm, når jeg har den kode:

TShape *snakebite = new TShape(Owner);
snakebite->Width = 10;
snakebite->Height = 10;
snakebite->Top = 10;
snakebite->Left = 10;
Form1->InsertComponent(snakebite);

Så kommer den ikke på formen... det må da være en compiler fejl?? kunne være man skulle genstarte??

Du mangler:

snakebite->Shape = stRectangle;

;-)

virker sq ikke :o(.. den kommer også med fejl når jeg lukker programmet... så kunne være man skulle genstarte en gang :o) men tak for hjælpen....

hmmm... kommer med fejl...

E2451 Undefined symbol 'myOnMouseEvent'

TShape *snakebite = new TShape(Owner);
snakebite->Shape = stRectangle;
snakebite->Width = 10;
snakebite->Height = 10;
snakebite->Left = frmMain->ClientWidth / 2;
snakebite->Top = frmMain->ClientHeight / 2;
snakebite->Name = String("Bite" + String(NR));
snakebite->OnMouseDown = myOnMouseDownEvent;
frmMain->InsertControl(snakebite);
}

void __fastcall TfrmMain::myOnMouseDownEvent(System::TObject* Sender, TMouseButton
Button, Classes::TShiftState Shift, int X, int Y);
{
  // kode kode kode kode
}

opretter nyt

Husker du at myOnMouseDownEvent routinen skal erklæres i din .h fil ?