Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by nitschchedu,
2. Apr 2007
Verdammt ich habs gefunden ! "Gruber_Hans_12345" mein Freunddu hattest recht mit deiner Theorier, das es das Listview 2 mal gibt.
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TfrmWorker, frmWorker); <---
Application.Run;
end.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by nitschchedu,
2. Apr 2007
Das ListView habe ich auf das Formular gezogen also ein ganz normales.
Und das mit dem Timer ist richtig 100 Punkte.
Was soll ich den alles Posten damit du es nachvollziehen kannst ?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by nitschchedu,
2. Apr 2007
Das erste ist 0, wie kann das sein ? wenn ich auf den Button drücke ist es 1 ! Was geht da ab ?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by nitschchedu,
2. Apr 2007
Habe das hier gepostet da ich beim Debugen nichts gefunden habe. Der wert ist 0 wenn ich an die Stelle komme.
Und wenn ich ListView1.Items.SubItems; das mache schmiert er auch ab. Kann es sein das ich keinen zugrief auf ListView habe ?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by nitschchedu,
2. Apr 2007
Später wollte ich es noch hochzählen. Habe die Variabel mal unbenannt in lePos. Aber immer noch der Fehler.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by nitschchedu,
2. Apr 2007
Also so langsam haben wir fast den ganzen Quellcode :zwinker: .
procedure TfrmBot.btAddClick(Sender: TObject);
var
ListItem: TListItem;
begin
ListItem := ListView1.Items.Add;
ListItem.Caption := edR.Text;
ListItem.SubItems.Add(ed1.Text);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by nitschchedu,
2. Apr 2007
Also das sind 3 Sachen:
1: Ich drücke den Button
procedure TfrmBot.Button2Click(Sender: TObject);
var
ID: String;
begin
Pos := 0;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by nitschchedu,
2. Apr 2007
Erstmal Windows ist doch immer Schuld :tongue: .
Ok hier so sieht das ganze aus.
procedure TfrmBot.Timer1Timer(Sender: TObject);
var
ID: String;
Href: String;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by nitschchedu,
2. Apr 2007
Das war ne vergleich :wink: !
Soweit wie ich das gezählt habe sind das 15 :gruebel: .
var
tpcolumn: TListColumn;
begin
....
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by nitschchedu,
2. Apr 2007
Hallo alle,
also habe ne Bösses Problem ich habe ne OnTime und wenn das ausgeführt wird will ich
in einen ListView was auslesen.
ID := ListView1.Items.SubItems;
doch es gibt da immer eine Exepction :wall: !!!