AGB  ·  Datenschutz  ·  Impressum  







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

Reguläre Prozedur in Methodenzeiger umwandeln

Ein Thema von Schwedenbitter · begonnen am 24. Mai 2017 · letzter Beitrag vom 26. Mai 2017
Antwort Antwort
Schwedenbitter

Registriert seit: 22. Mär 2003
Ort: Finsterwalde
622 Beiträge
 
Turbo Delphi für Win32
 
#1

AW: Reguläre Prozedur in Methodenzeiger umwandeln

  Alt 24. Mai 2017, 21:22
Danke DeddyH und Namenloser für die schnelle Hilfe.

Ich habe jetzt ein weiteres Problem, das evtl. nicht unmittelbar die Ausgangsfrage betrifft:
Aus irgend einem Grund kommen die Ereignisse nicht an. D.h. genauer gesagt kommt immer nur ein Ereignis an. Aber auch das nicht während das Programm läuft, sondern erst wenn das Programm beendet wird.

Das ist kurios, weil ich immer dasselbe Grundgerüst für solche Konsolenprogramme/-tests nutze und dort andere Komponenten wie z.B. die Indys - genauer deren Ereignisse - durchkommen.
Alex Winzer
  Mit Zitat antworten Zitat
Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.052 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#2

AW: Reguläre Prozedur in Methodenzeiger umwandeln

  Alt 25. Mai 2017, 16:59
class methods (ohne static) können auch einer TMethod bzw einem Event zugewiesen werden, die haben nämlich auch den Self Pointer (in dem Fall auf die Klasse anstatt das Objekt).
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#3

AW: Reguläre Prozedur in Methodenzeiger umwandeln

  Alt 26. Mai 2017, 12:39
Das ist kurios, weil ich immer dasselbe Grundgerüst für solche Konsolenprogramme/-tests nutze und dort andere Komponenten wie z.B. die Indys - genauer deren Ereignisse - durchkommen.
Probier statt
Delphi-Quellcode:
while Run do
begin
  Sleep();
end;
mal bitte
Delphi-Quellcode:
var
  Msg: TMsg;
..
begin
..
  while GetMessage(Msg, 0, 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  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 08:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz