<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Normale Seite ohne Titel</title>
</head>
<body bgcolor="#FFFFFF">
<p>Hallo, ich hab in meinem BCB4 - Projekt eine ActionList, einen
TSpeedButton::OkButton und ein PopupMenü in dem die
verschiedenen Aktionen aufgelistet sind. Jeder Menüpunkt ist mit
TForm1::ActionChangeExecute verbunden, dessen Code gleich folgt.
Funktioniert alles einwandfrei, lediglich beim ersten Aufruf nach
dem Programmstart ist der Parameter TObjekt *Sender nicht mein
TMenuItem ! T->Caption ist NULL, T->Tag ist 0,
T->Checked=true; verändert irgendetwas unbekanntes. Ist das
ein Bug oder ein Feature ? Was kann ich tun, um die gewünschte
Wirkung schon beim ersten Aufruf zu erreichen ? Ansonsten ist es
ja ein toller Fortschritt mit der ActionList, und daß man das
Popupmenu zur Laufzeit ändern kann (Checked). Das war wohl ein
Bug in Version 1 ? Danke - Günther</p>
<pre>
void __fastcall TForm1::ActionChangeExecute(TObject *Sender)
{
TMenuItem *T=(TMenuItem *)Sender;
for(int i=0; i<OkPopupMenu->Items->Count; i++)
OkPopupMenu->Items->Items[i]->Checked=false;
T->Checked=true;
switch(T->Tag)
{
case 0:OkButton->Action=TechnikCheck; break;
case 1:OkButton->Action=TiffPrint; break;
}
}
</pre>
</body>
</html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Normale Seite ohne Titel</title>
</head>
<body bgcolor="#FFFFFF">
<p>Hallo, ich hab in meinem BCB4 - Projekt eine ActionList, einen
TSpeedButton::OkButton und ein PopupMenü in dem die
verschiedenen Aktionen aufgelistet sind. Jeder Menüpunkt ist mit
TForm1::ActionChangeExecute verbunden, dessen Code gleich folgt.
Funktioniert alles einwandfrei, lediglich beim ersten Aufruf nach
dem Programmstart ist der Parameter TObjekt *Sender nicht mein
TMenuItem ! T->Caption ist NULL, T->Tag ist 0,
T->Checked=true; verändert irgendetwas unbekanntes. Ist das
ein Bug oder ein Feature ? Was kann ich tun, um die gewünschte
Wirkung schon beim ersten Aufruf zu erreichen ? Ansonsten ist es
ja ein toller Fortschritt mit der ActionList, und daß man das
Popupmenu zur Laufzeit ändern kann (Checked). Das war wohl ein
Bug in Version 1 ? Danke - Günther</p>
<pre>
void __fastcall TForm1::ActionChangeExecute(TObject *Sender)
{
TMenuItem *T=(TMenuItem *)Sender;
for(int i=0; i<OkPopupMenu->Items->Count; i++)
OkPopupMenu->Items->Items[i]->Checked=false;
T->Checked=true;
switch(T->Tag)
{
case 0:OkButton->Action=TechnikCheck; break;
case 1:OkButton->Action=TiffPrint; break;
}
}
</pre>
</body>
</html>
Comment