Hi
Zitat von
rennkuckuck:
@matze: ich versteh deine antwort leider nicht so.
also es soll weiterhin möglich sein das formular zu verschieben und in der größe zu ändern.
ich versteh nicht wie ich mit dem
procedure WMMOVE(var Msg: TWMMove); message WM_MOVE;
dann die bewegung des formulars festestelle?
habe nocht nichts mit message gemacht.
Dann hier mal die ganze Beispielunit:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 =
class(TForm)
private
{ Private-Deklarationen }
procedure WMMOVE(
var Msg: TWMMove);
message WM_MOVE;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMMOVE(
var Msg: TWMMove);
begin
inherited;
// irgendwas
end;
end.
Die Procedure WMMOVE wird während des Verschiebens des Formulars ausgelöst. Dort, wo
// irgendwas
steht, kannst du deinen Code ausführen, der beim Verschieben ausgeführt werden soll.