AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TInterfacedObject Subclass

Ein Thema von EWeiss · begonnen am 11. Mär 2011 · letzter Beitrag vom 13. Mär 2011
Antwort Antwort
EWeiss
(Gast)

n/a Beiträge
 
#1

AW: TInterfacedObject Subclass

  Alt 12. Mär 2011, 16:11
Habs schon versucht.. mit Breakpoint
Das problem ist das der Compiler nur den ASM Bildschirm öffnet und da kann ich nur lesen
Zitat:
TObject.InitInstance:
Als wenn bei der Initialisierung irgend etwas schief läuft.
Zitat:
aber man sollte doch immer inherited Create aufrufen
Ja das kann ich machen.


gruss

Geändert von EWeiss (12. Mär 2011 um 16:19 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.051 Beiträge
 
Delphi 12 Athens
 
#2

AW: TInterfacedObject Subclass

  Alt 12. Mär 2011, 16:44
InitInstance ist auch in Assembler, da wird man nicht viel mehr sehen können. Aber vielleicht kannst du im Aufrufstack etwas erkennen?

In der DLL wird nach dem Create dreimal auf InstrumentList zugegriffen. Kommt es überhaupt dazu oder knallt es schon beim Create?

Ich weiß, daß man in einer DLL nicht immer alles das machen kann, was in einer Exe problemlos möglich ist. Ich habe aber noch keine Ahnung, was das hier sein könnte. Zumindest würde man mit diesem Wissen die Suche in eine andere Richtung bringen.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#3

AW: TInterfacedObject Subclass

  Alt 12. Mär 2011, 17:25
InitInstance ist auch in Assembler, da wird man nicht viel mehr sehen können. Aber vielleicht kannst du im Aufrufstack etwas erkennen?

In der DLL wird nach dem Create dreimal auf InstrumentList zugegriffen. Kommt es überhaupt dazu oder knallt es schon beim Create?

Ich weiß, daß man in einer DLL nicht immer alles das machen kann, was in einer Exe problemlos möglich ist. Ich habe aber noch keine Ahnung, was das hier sein könnte. Zumindest würde man mit diesem Wissen die Suche in eine andere Richtung bringen.
Bei Create funktioniert noch alles weil ich zu dem zeitpunkt noch nicht auf die WinProc zugreife.
Lasse ich alles andere weg dann habe ich aber keinen Zugriff mehr auf meine Default WinProc in der Anwendung selbst.
Das merkt man weil ich keine Messagen mehr verarbeiten kann zum beispiel wenn ich auf einen Button Klicke.
Die Anwendung läßt sich dann nicht mehr schließen.

Ich glaube das es an der Winproc selbst liegt bzw.. wie diese gesubclassed wird.
Mein Fehler ist das ich wie vorher schon mal erwähnt nicht die WinProc der Anwendung sondern die der ListBox subclasse.
Es werden meineserachtens keine Messagen an die Hauptanwendung geschickt bzw.. dort verarbeitet.


Zitat:
ich muss die Winproc der Anwendung subclassen nicht meine eigene.
PrevWndProc := SetWindowLong(WinHandle, GWL_WNDPROC, integer(@WndProc));
anstelle von
PrevWndProc := SetWindowLong(WinHandle, GWL_WNDPROC, integer(@TSkinListBox.ListBoxProc));
Deshalb meine Frage wie komme ich an die WinProc in der Anwendung selbst heran oder kann sie weiter leiten.

Das sie funktioniert siehst du am Bild..
Aber nur in der Anwenung ohne DLL

gruss

Geändert von EWeiss ( 9. Jul 2019 um 08:33 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.051 Beiträge
 
Delphi 12 Athens
 
#4

AW: TInterfacedObject Subclass

  Alt 12. Mär 2011, 22:31
GetWindowLong?
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#5

AW: TInterfacedObject Subclass

  Alt 13. Mär 2011, 10:14
GetWindowLong?
Danke für deine hilfe Uwe..
Ja damit komme ich an die Winproc (Hätte mir auch selbst einfallen können )
Aber funktionieren tut es trotzdem nicht.

Habe jetzt das Interface zur ListBox entfernt also zurück auf TObject
und siehe da jetzt funktioniert es wieder.

Warum ich die ListBox nicht mit dem Interface initialisiert bekomme ist mir noch nicht ganz klar.
Wäre aber die Ideale lösung.

Muss trotzdem noch einges ändern damit die Listbox von außen besser bedienbar ist.
Siehe Bild!

Wie du sehen kannst kopiere ich den Hintergrund ab der position 0, 0, 610, 268 mit dem Handle meines Frames in die Listbox
So emuliere ich quasi eine Transparente ListBox.
Das es jetzt so komisch aussieht ist absicht
Normalerweise muss ich das Handle der Anwendung selbst verwenden und die Position
auf der meines Frames setzen. 145, 62, 610, 268

Habe es jetzt mal absichtlich so gemacht damit du sehen kannst das es wieder funktioniert.


gruss

Geändert von EWeiss ( 9. Jul 2019 um 08:33 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz