Komisch, dass ich nichts gefunden habe darüber.
Aber ich habe 2 Forms.
in unit1 ( form1 ) rufe ich eine function in unit2 (enthält form2 - fVideo) auf.
dort versuche ich die größe von form2 anzupassen.
Delphi-Quellcode:
function TfVideo.receive(var myBitmap : TBitmap) : Boolean;
....
Canvas.Draw( 0, 0, myBitmap );
ClientWidth := myBitmap.Width;
ClientHeight := myBitmap.Height;
.....
end;
der aufruf aus unit1
if (waitstate = WAIT_OBJECT_0) then fVideo.receive(myBitmap);
in onRepaint der form2 (fVideo)
hab ich
Delphi-Quellcode:
ClientWidth := uMain.myBitmap.Width;
ClientHeight := uMain.myBitmap.Height;
Canvas.Draw( 0, 0, uMain.myBitmap );
jetzt wird mir beim aufruf die größe nicht angepasst.
beim repaint event allerdings schon.
also muss ich erst ein fenster über form2 (fVideo) drüberziehen damit es funktioniert.
Ist sicher nur eine kleine einstellung oder so, aber ich hab keine ahnung wo ich suchen soll.
lg
Arnulf