|
Registriert seit: 17. Jun 2009
616 Beiträge
|
AW: Neues Formular EDIT nicht beschreibbar
27. Apr 2015, 17:32
Code:
procedure TNeuerKundeForm.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
NeuerKundeForm.Height := Hauptform.ClientHeight;
resize := false;
end;
Ändere mal diese Zeile:
Delphi-Quellcode:
procedure TNeuerKundeForm.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
begin
//NeuerKundeForm.Height := Hauptform.ClientHeight; // Das geht schief
resize := false;
end;
Du kannst doch die Werte für NewWidth und NewHeight benutzen und resize muss dann auch true sein.
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.
|