Hi zusammen
In einer Liste halte ich gewisse Maus-Ereignisse beim Aufruf eines Popups fest:
Delphi-Quellcode:
procedure TMainPage.WriteReportFile2;
var S, DateTimeStr, DS: string;
ReportStream: TFileStream;
begin
DS := DateTimeToStr(Now);
DateTimeStr := StringReplace(DS, ':', '-', [rfReplaceAll]);
S := ExtractFilePath(Application.ExeName) + '\' + 'CodeReport ' +DateTimeStr+'.txt';
Reportstream := TFileStream.Create(S, fmCreate);
try
FReportList.Add(DateTimeToStr(Now));
FReportlist.Add('----------------');
FReportList.AddStrings(Self.FileSearchContainerFrame1.OpenFileFrame1.ReportList);
FReportlist.SaveToStream(ReportStream);
finally
Reportstream.Free;
end;
end;
Und das ist dann, was dabei ohne debuggen herauskommt:
Delphi-Quellcode:
19.10.2019 11:48:59
----------------
--OpenFileFrame.ReportList--
--Start : --
----------------
prozedur TVFilesExplorerMouseUp
P:\ [Elements]
----------------
prozedur TVFilesExplorerMouseDown
Button =(mbRight)-Block
----------------
prozedur TOpenFileFrame.Wurzelverzeichnis1Click
P:\ [Elements]
----------------
prozedur TVFilesExplorerMouseDown
Allgemein-Block
FSelectedNode.Text := P:\ [Elements]
Also in der Reihenfolge:
MouseUp MouseDown Wurzelverzeichnis1Click MouseDown
Mit Debugggen ist die Reihenfolge:
MouseUp Wurzelverzeichnis1Click MouseDown MouseDown
Meinem bisherigen Verständnis nach müsste die Reihenflge sein:
MouseDown - Wurzelverzeichnis1Click - MouseUp
Ich habe auch schon etwas im
EmbaWicki gestöbert umd dabei etwas gefunden, dass nicht zu stimmen scheint.
Ich hatte Selected verwendet, um den gewählten Knoten zu identifizieren -- trotzdem lieferte mir Selected den Wert des obersten(zur Startzeit gewählten) Knotens C:\ zurück.
Gruss
Delbor