Hallo,
ich habe ein Formular erstellt, wo durch ein Klick ein neues Parent-Formular erstellt wird. In dieses Formular habe ich nun mehrere Edit-Komponenten eingefügt. Leider kann ich diese nicht editieren.
Allerdings funktioniert der Klick auf einen Button problemlos.
Woran kann das liegen?
Ich tippe auf den Focus oder auf die Active-Eigenschaft, aber beides funktioniert nicht.
Was bitte willst Du uns mitteilen?
Vermutung:
du hads ein Formular das eine ButtononClick-Procedur enthält in der mit Hilfe von
form2.show;
ein weiteres Formular angezeigt wird.
In die auf diesem Formular enthaltenen Edit-Komponenten (TEdit?) kannst du nichts eintragen.
(.Enabled schon einmal überprüft?)
Ist das so richtig?
Gruß
K-H
Genau so ist es.
In der
Unit dieser 2.Form habe ich nichts außer die Edit-Komponenten und folgenden Code, der das Vergrößern und verschieben der Form verhindert:
Code:
procedure TNeuerKundeForm.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
NeuerKundeForm.Height := Hauptform.ClientHeight;
resize := false;
end;
procedure TNeuerKundeForm.WMNCHitTest(var Msg: TWMNCHitTest);
begin
DefaultHandler(Msg);
if Msg.Result = HTCAPTION then
Msg.Result:=0;
end;
procedure TNeuerKundeForm.FormCreate(Sender: TObject);
const
MnuCommand = SC_MOVE;
var
SysMenu : HMenu;
begin
SysMenu := GetSystemMenu(
Handle, FALSE) ;
DeleteMenu(SysMenu, MnuCommand, MF_BYCOMMAND);
end;
.Enabled überprüft, ist auf true.
ReadOnly ist ebenfalls auf false.
Einen Button auf dem 2.Formular kann ich problemlos anklicken und das funktioniert auch, aber Edit-Felder gehen eben nicht. Außerdem kann ich noch in die Edit-Felder auf der 1.Form etwas eintragen.