-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
2. Apr 2010
Inwiefern nicht? Wenn das Programm dort nicht anhält, bedeutet das ja, dass die Message nicht ankommt.
Ich kann Dir dieses Tutorial von MaBuSe nur wärmstens ans Herz legen.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
2. Apr 2010
Hast Du einmal einen Haltepunkt gesetzt? Das hatten wir doch schonmal, das Thema.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
2. Apr 2010
Sehr merkwürdig. Wird die Methode denn angesprungen oder kommt die Message gar nicht an?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
2. Apr 2010
Und das FormCreate? Da hast Du nur Form1.Handle durch ListBox1.Handle ersetzt oder noch andere Änderungen?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
2. Apr 2010
Bei mir schon. Wie sieht Dein Code denn jetzt aus (die relevanten Stellen)?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
Wenn Du den Code ausprobierst, solltest Du eine Fehlermeldung "Listenindex überschreitet das Maximum(1)" bekommen. Der Grund liegt darin, dass Stringlisten 0-indiziert sind, d.h. das erste Element hat den Index 0, das zweite Index 1 usw. Ich habe in meinem Beispiel nur eine Zeile eingefügt und anschließend versucht, eine 2. Zeile auszulesen, was diesen Fehler verursacht. Deshalb habe ich Dir...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
Hast Du es mal ausprobiert? Gab es einen Fehler?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
*Gnarf* Probier das Folgende mal aus, dann weißt Du, was ich meine:Liste := TStringlist.Create;
try
Liste.Add('Hallo');
ShowMessage(Liste); //es ist nur ein Element mit Index 0 (!!) vorhanden
finally
Liste.Free;
end;
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
Weil Du anschließend auf das 5. Element zugreifst. Und wenn das nicht da ist, gibt es den von Dir beschriebenen Fehler.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
List2:=Explode('<>', List);
try
if List2.Count > 1 then
ListBox1.Items.Insert(i, List2);
if List2.Count > 2 then
ListBox2.Items.Insert(i, List2);
if List2.Count > 3 then
ListBox3.Items.Insert(i, List2);
if List2.Count > 4 then
ListBox4.Items.Insert(i, List2);
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
Trotzdem finde ich solchen Code etwas optimistisch:
Du solltest nach dem Explode zumindest überprüfen, ob überhaupt mehr als 4 Elemente in der Liste stehen, das war vermutlich auch der Grund für den Fehler.
:lol: :cheers:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
Darauf würde ich mich trotzdem nicht verlassen. Nimm AnsiSameText und Du bist auf der sicheren Seite (siehe oben).
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
Ich schneide evtl. Steuerzeichen vorn und hinten ab und unterscheide nicht zwischen Groß- und Kleinschreibung (ich denke mal, letzteres war auch das Problem).
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
Wie sieht es so aus?if AnsiSameText(trim(Extension), '.crp') then
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
Nicht, dass ich wüsste. Aber Du könntest innerhalb der Schleife alle Dateien abarbeiten und nach der ersten stimmigen Endung aufhören.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
Ich meine damit, dass man ja durchaus mehrere Dateien in einem Rutsch Drag&Droppen kann.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
Steht da evtl. noch ein Leerzeichen dahinter oder so? BTW: Du untersuchst immer nur die letzte Datei aus der "Drop-Liste", das ist Dir hoffentlich bewusst.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
Setz einen Haltepunkt und steppe mit F8 durch, bis es knallt. Dann hast Du zumindest schonmal die fehlerverursachende Zeile.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
Du kannst Dir natürlich auch entsprechende Komponenten installieren, siehe hier.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
procedure TForm1.WMDROPFILES(var Msg: TMessage);
var i, count: Cardinal;
Buffer, Extension: string;
begin
inherited;
Buffer := '';
count := DragQueryFile(Msg.WParam,$FFFFFFFF,nil,0);
for i := 0 to count - 1 do
begin
SetLength(Buffer,DragQueryFile(Msg.WParam,i,nil,0) + 1);
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
1. Apr 2010
Genügt es nicht, nach der Endung zu schauen?