Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Schumann,
7. Okt 2005
Hallo Ultimator,
mir ist noch eine Kleinigkeit aufgefallen:
Es fehlt der Aufruf von DragFinish am Ende der Methode.
Da im EventHandler etwas schief gehen könnte sollte es
innerhalb eines Resourceschutzblockes stehen.
procedure TUltiShellListView.WMDropFiles(var Message: TWMDropFiles);
var
Count: Integer;
I: Integer;
Buffer: array of Char;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Schumann,
6. Okt 2005
Hallo,
constructor TUltiShellListView.Create(aOwner: TComponent);
begin
inherited Create(aOwner);
// Parent := aOwner as TWinControl; // <- kommentiere diese Zeile bitte aus
DragAcceptFiles(self.handle, True);
end;