In VirtualStringTree nach Neuladen zurück auf vorigen Node

[jaenicke]

Empfang der Nachricht:

Delphi-Quellcode:

const
  MyMessage = WM_APP + 100;

type
  TBlubForm = class(TForm)
  protected
    procedure WmMyMessage(var Msg: TMessage); message MyMessage;
  end;

implementation

procedure TBlubForm.WmMyMessage(var Msg: TMessage);
begin
  Reload...
end;

Senden der Nachricht:

Delphi-Quellcode:

PostMessage(Handle, MyMessage, 0, 0);
// PostMessage wartet nicht auf Abarbeitung der Nachricht

Mehr dazu hier:
http://docwiki.embarcadero.com/RADSt...andling_Method