Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
15. Jun 2006
Ich glaube, es ist am besten, man schreibt "© 2006 " - dann kann einem nichts passieren :mrgreen:
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
15. Jun 2006
Ist ja ok ;) Ich möchte nur wissen, wie du zu dieser Aussage kommst:
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
13. Jun 2006
Dankeschön! Ich versuche es umzusetzen :wink: :thumb:
Wie kommst du darauf? Deswegen? (Biotec-Filter usw.) --> http://www.google.de/search?hl=de&q=ScreenEx+&btnG=Google-Suche&meta= oder ist das so ne Verarsche wie 'Kennt ihr Mike Rosoft?'
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
13. Jun 2006
Genauso wollte ich das auch machen :cheers: Aber wegen dem Zeiger war ich irritert.
Ich war bisher immer der Meinung, da wäre ein (bisschen) Konzept drin :duck:
Kannst du mir nen Ansatz geben, weil ich von alleine weiterkommen möchte
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
13. Jun 2006
An eine Property für Klasse TForm1 dachte ich auch schon. Wie würde so etwas mit einem Zeiger aussehen?
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
13. Jun 2006
Erst mal vielen Dank!
Hast du nur diese Prozedur geändert?
procedure TMarkFile.DeleteSubject(rowIndex: Integer);
var
iRow, iEdit: Integer;
begin
for iRow := rowIndex to Pred(High(FEingabeArray)) do
begin
for iEdit := 1 to 5 do
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
12. Jun 2006
Das komische ist ja, dass die alte Version funktioniert:
procedure TForm1.DeleteSubject(Sender : TObject);
var row,i,i2:integer;
begin
row:=(Sender as TButton).Tag;
if row=High(EditsArray) then
begin
for i2 := 1 to 6 do
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
11. Jun 2006
Ich hab das nicht abgespeichert, darum kann ich den modifizierten Source nicht mehr herzeigen. Meine Bitte: Kann das mal bitte jemand anpassen? :oops:
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
10. Jun 2006
procedure TMarkFile.LoeschMich(var Msg: TMessage);
begin
TObject(Msg.WParam).Free; // WParam nach TObject casten und freigeben
showmessage('blubb');
end;
Das wird gar nicht aufgerufen.
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
10. Jun 2006
Hab ich gemacht, aber der Button verschwindet nicht :roll:
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
10. Jun 2006
Ja so wird es sein :autsch: Und was kann man dagegen tun?
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
10. Jun 2006
Ich habe mal den Debugger benutzt. Mit F7 gehe ich Zeile für Zeile durch. Der Debugger springt in die markierte Zeile und danach wird der Fehler ausgelöst.
procedure TMarkFile.DeleteSubject(Sender : TObject);
var row,i,i2:integer;
begin
row:=(Sender as TButton).Tag;
if row=High(FEingabeArray) then
begin
for i2 := 1 to 5 do
Forum: Object-Pascal / Delphi-Language
Delphi
by Koller,
10. Jun 2006
Hallo,
wenn ihr die exe im Anhang startet und dann auf das Symbol für Neue Datei klickt, dann erscheint ein neuer Tab. Nun klickt man auf den letzten Knopf mit dem X und dieser verschwindet. Anschließend klickt man wieder auf den letzen Knopf und es tritt eine Zugriffsverletzung auf. Die Procedure DeleteSubject in der maf.pas wird beim Klicken aufgerufen. Kann jemand den Fehler finden??? :f