Forum: Object-Pascal / Delphi-Language
Delphi
by Fussel9,
26. Jan 2010
Habe es herrausgefunden : man klickt die hinter den anderen liegenden komponenten unwissentlich an... dadurch werden diese nach vorne geholt...
procedure TFormMain.Card1Click(Sender: TObject);
begin
(Sender as TImage).BringToFront;
ShowMessage(IntToStr((Sender as TImage).Tag));
end;
daher die falschen messages.. denn card11 lag standartmäßig über oder vor card1...sind so in zwei reihen...
Forum: Object-Pascal / Delphi-Language
Delphi
by Fussel9,
26. Jan 2010
Habe jetzt jedem Tag die eintsprechende nr. zugewiesen... geht aber auch nicht... so ziehmlich das selbe problem wie vorher
Forum: Object-Pascal / Delphi-Language
Delphi
by Fussel9,
26. Jan 2010
Was für einen Tag?
(Sender as TImage).Tag
existiert nicht...
€dit: OOOPs... existiert doch delphi hats nur nicht angezeigt wegen ShowMessage....
jetzt ist jede Message '0' ....
Forum: Object-Pascal / Delphi-Language
Delphi
by Fussel9,
26. Jan 2010
Hi habe hier schon einiges zu meinem projekt gepostet..
das war das jetzige resultat:
//Aufruf
procedure TFormMain.Start;
begin
if not (Runde >= 20) then
begin
Inc(Runde);