Ich erhalte folgende Fehlermeldung:
Eigenschaft Visible kann in OnShow und OnHide nicht verändert werden.
Ich rufe über OnActivate als letztes über das "Show" Ereignis eine zweite Form auf. Funktioniert auch soweit.
Delphi-Quelltext
1:
2:
3:
| ....
....
form2.show; |
Wenn die 2 Form allerdings wieder geschlossen wird, erhalte ich die onben genannte Fehlermeldung.
Ändere ich das show in ein "Showmodal" also:
Delphi-Quelltext
1:
2:
3:
| ....
....
form2.showmodal; |
erhalte ich diese Fehlermeldung nicht.
Ich würde ja sogar mit dem showmodal leben aber dann habe ich ein anderes Problem. Das wäre eigentlich ein anderes Thema aber ich nenne es hier auch mal.
Die Form2 enthält eine RxDBLookupComboBox und einen Button.
Mann soll einfach aus der RxDBLookupComboBox einen Namen aus der Datenbank auswählen und auf den verdammten Button drücken.
Dieser nimmt bestimmte Werte aus dem so markierten Datensatz und schreibt diese in Variabeln.
Wenn ich nun ein modales Fenster habe, kann man nicht mehr auf die RxDBLookupComboBox klicken zum auswählen eines Datensatzes. Das Dropdownfeld öffnet sich nicht.
Erst venn man den doofen Button gedrückt hat, funktioniert das auch mit der RxDBLookupComboBox.
Wenn ich nur Show verwende, kann die RxDBLookupComboBox sofort ausgewählt werden.
hier das Listing zur Form2
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
|
unit anmeldung;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls, DBCtrls, Buttons, RxLookup;
type
TJP_Anmeldung = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
GroupBox1: TGroupBox;
RxDBLookupCombo1: TRxDBLookupCombo;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
public
end;
var
JP_Anmeldung: TJP_Anmeldung;
implementation
uses Main,Datenmodul;
{$R *.dfm}
procedure TJP_Anmeldung.BitBtn1Click(Sender: TObject);
begin
main.mn:=DM.MitarbeiterQuery.FieldByName('Nachname').AsString;
main.mv:=DM.MitarbeiterQuery.FieldByName('Vorname').AsString;
main.ma:=DM.MitarbeiterQuery.FieldByName('Geschlecht').AsString;
main.mk:=DM.MitarbeiterQuery.FieldByName('Kuerzel').AsString;
end;
end. |
Moderiert von 
Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Di 19.05.2009 um 15:51
