-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
2. Apr 2010
Wo soll ich denn die Stopppunkte setzen? :gruebel:
Ach komm ich lass das mit Form1, will dich bzw. euch alle hier nicht nerven.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
2. Apr 2010
Ja habe ich, aber das bringt mich nicht weiter.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
2. Apr 2010
Es passiert nix, die Liste bleibt leer und fertig... also wird nix geladen. :gruebel:
Na ja... nicht schlimm, lass dann die Form1 stehen.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
2. Apr 2010
Ja genau, nur ersetzt, mehr nix
DragAcceptFiles(ListBox1.Handle, True);
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
2. Apr 2010
procedure TForm1.WMDROPFILES(var Msg: TMessage);
var j, zaehler: Cardinal;
Buffer, Extension: String;
i: Integer;
List : TStringList;
List2: TStringList;
begin
inherited;
Buffer := '';
zaehler := DragQueryFile(Msg.WParam, $FFFFFFFF, nil, 0);
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
2. Apr 2010
Also in diesem Tutorial hier ist es genau so gezeigt, also und bei mir funkt es nicht. :roteyes:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
2. Apr 2010
Hab heute wieder ein Problemchen gefunden, wenn ich
DragAcceptFiles(Form1.Handle, True);
durch
DragAcceptFiles(ListBox1.Handle, True);
ersetze funktioniert mein ganzer Code nicht. :wall: Wer kann mir sagen wieso?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Irgendwie stehe ich auf dem Schlauch, ist wahrscheinlich zu spät? :roteyes:
Ich verstehe den Sinn nicht... verzeih... muss mal morgen schauen.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
:gruebel:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Ne es läuft alles. Irgendwie kopiere ich trotzdem das nicht... :roteyes:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Und wieso soll ich überprüfen, ob mehr als 4 Elemente vorhanden sind? :gruebel:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Ne der Fehler war deswegen, eine .crp Datei wird mit geladen und andere und weil die Abfrage falsch war wurde die .crp mit "=" geladen, und das verursachte den Fehler.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Hm... was genau? Verzeih, bin Hobbyprogrammierer. :gruebel:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
So ich hab's....
Also im Post #10 hatte ich das Problem weil die Abfrage falsch war und die Datei falsch geladen wurde, deswegen der Fehler, mit klappt jetzt alles, wird alles richtig geladen. Im Post #28 war ein Denkfehler, also es läuft alles. :bouncing4:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Ok hab das so gemacht... so aber das Problem im Post #10 besteht immer noch. :roteyes:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Aber komischerweise funktioniert die Abfrage, also im Code wo ich per OpenDialog importiere. :roteyes:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Wow ja es geht :dancer2:
Wo liegt denn der Unterschied? :gruebel:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Ok, aber ich verstehe nicht, wieso bekomme ich hier ne "nein" Meldung? :wall:
showmessage(Extension);
if Extension='.crp' then
begin
showmessage('ja');
end else
begin
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Kann man das irgendwie verbieten?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Ne da gibt's keine Leerzeichen...
Was meinst du damit?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
.crp also das was ich brauche... :roteyes:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Also das Problem liegt irgendwo hier:
showmessage(ExtractFileExt(Buffer));
if ExtractFileExt(Buffer)='.crp' then
begin
showmessage('ja');
showmessage(ExtractFileExt(Buffer));
end else
begin
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Ne, hab mal versucht, aber blicke da nicht durch, keine Ahnung wie es geht.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Hab jetzt ein Problem, welches ich nicht lösen kann.
Und zwar ich lade die Daten per Import und will auch per Drag'n'Drop, siehe Code.
Bei der Lösung per Drag'n'Drop bekomme ich als die Fehlermeldung Was kann das den sein? Beim Importieren bekomm ich die aber nicht.
//Import
procedure TForm1.ChannelListImport1Click(Sender: TObject);
var i: Integer;
List : TStringList;
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlexII,
1. Apr 2010
Will ich vermeiden, weiß sowieso nicht wie man sie richtig einsetzen muss.