Konflikt von TMediaPlayer und TUpDown ? [solved]

scientificus · Hält's aus hier Beiträge: 10 WIN XP D3

Ich habe in einem Programm Probleme mit der Verwendung von TMediaPlayer und TUpDown auf einem Formular. Das Problem taucht schon bei sehr simpler Programmgestaltung auf:
Man nehme eine TEdit-Komponente und eine TUpDown-Komponente auf ein Formular und schreibe in die OnClick-Anweisung von UpDown1 folgende Zeile:

markieren

Quelltext

1:	if Button = btNext then Edit1.text := 'hallo';

Funktioniert wunderbar.
Doch jetzt setzt man einfach eine TMediaPlayer-Komponente auf das Formular (wirklich nur draufsetzen!) und beim nächsten Starten gibt es eine Fehlermeldung (die obige Zeile wird markiert), die (in etwa) so lautet:

markieren

Quelltext

1:	Inkompatible Typen: TUDBtnType und TMPBtnType

Offensichtlich bezieht er den Wert "btNext" jetzt auf die TMediaPlayer-Komponente und nicht mehr auf den "Button" von TupDown.
Weiß jemand die Lösung dieses Problems??? :nixweiss:

_________________
Ordnung halten nur die Dummen, das Genie beherrscht das Chaos!

kasi · Beiträge: 37 Win XP D5 Ent

Schreib

markieren

Quelltext

1:	if Button = ComCtrls.btNext then Edit1.text := 'hallo';

damit die Button-Definition in der richtigen Unit gesucht wird.

KASI

scientificus · Hält's aus hier Beiträge: 10 WIN XP D3

Ja, vielen Dank für den Tipp. habe mittlerweile auch eine Möglichkeit gefunden:

markieren

Quelltext

1:	if Button = TUDBtnType(0) then Edit1.text := 'hallo';

Aber eigentlich ist es schon komisch, dass so ein Problem eintritt, dürfte ja im Prinzip nicht passieren...
Auf jeden Fall DANKE.

_________________
Ordnung halten nur die Dummen, das Genie beherrscht das Chaos!

Gast Erhaltene Danke: 1

Wenn du zwei Units eingebunden hast, z.B. a und b und in a steht

markieren

Delphi-Quelltext

1:
2:

type
 TFoo = integer;

und in b steht

markieren

Delphi-Quelltext

1:
2:

type
 TFoo = string;

und b ist nach a eingebunden, also

markieren

Delphi-Quelltext

1:
2:

uses
 ...a, b;

Dann ist für den Compiler TFoo = string, da das die letzte Definition dafür war.[/delphi]

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme