Einzelnen Beitrag anzeigen

BAMatze

Registriert seit: 18. Aug 2008
Ort: Berlin
759 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: senden eines Strings per SendMessage

  Alt 9. Mär 2009, 14:30
Also erstmal die gute Nachricht, der Datenaustausch findetstatt. Habe durch eine einfache Änderung jetzt das gewünschte Ergebnis, kann mir aber selber nicht erklären, woran dies liegt. Habe meine LoaderUnit wie folgt abgeändert:

Delphi-Quellcode:
procedure TLoaderForm.Nachricht_anzeigen(var MSG: TWMCopyData);
var Datenaustausch: TDatenaustausch;
begin
  HilfsLabel.Caption := String(PChar(Msg.CopyDataStruct.lpData)); // <--- hier sollte der Datenaustausch ankommen, funkt auch
  AnzeigeLabel.Left := round((LoaderForm.Width-HilfsLabel.Width)/2);
  AnzeigeLabel.Caption := HilfsLabel.Caption;
  Self.Refresh; // <--- hier die Neuerung, gefunden mehr intuitiv aus Threats, die die Splashs behandeln.
end;
Kann vieleicht jemand dazu etwas sagen, warum dies so sein muss?
  Mit Zitat antworten Zitat