That's it!
Mit TDBCtrlGrid kann ich genau das machen! Cool. Hab mich immer schon gefragt, für was die da ist...
Jetzt weiß ich es. Nur wie kann ich jetzt noch das Bild laden, welches ja nicht in der
DB liegt. Hab ja nur die Pfadangabe...
Hab's schon gefunden. Im OnPaintPanel hab ich das untergebracht und es läuft super!
Jetzt muss ich nur noch wissen, wie ich dem CtrlGrid beibringe, beim Drehen des Mausrades zu scrollen?!?! Gibt es da einen Trick?
Ja, den gibt es... hab auch das selber hinbekommen:
Delphi-Quellcode:
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_MOUSEWHEEL then
begin
if Screen.ActiveControl is TDBCtrlGrid then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
if Msg.wParam > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
end;
end;
Alles schön!