Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by rudi_,
16. Okt 2004
ahh
ich glaub ich kann dir folgen *g*
soviel zur betriebsblindheit :shock: :shock:
ich versuchs gleich mal zu ändern
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by rudi_,
16. Okt 2004
procedure TClerkBox.BeforeDestruction;
begin
if FChanged then
begin
if FDataSetID <> -1 then
UpdateEntry
else
InsertEntry;
end;
inherited BeforeDestruction;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by rudi_,
16. Okt 2004
sorry
war ein wenig ungeschickt
ich hatte zwischendurch mal in der TClerkBox quasi zwei kopien der prozeduren LoadClerks und ClearClerks angelegt
um zu testen, ob das was ändert, wenn die in der eigenen klasse vorhanden sind
das hatte ich nicht gerade wieder vollständig zurückgeändert
beeinflusst das verhalten des programms aber in keiner weise
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by rudi_,
16. Okt 2004
procedure TClerkBox.BeforeDestruction;
begin
if FChanged then
begin
if FDataSetID <> -1 then
UpdateEntry
else
InsertEntry;
end;
inherited BeforeDestruction;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by rudi_,
16. Okt 2004
meinst du mit BeginUpdate/EndUpdate, dass ich quasi das TStrings Objekt (also .Items) der listbox ändere, das ganze aber aus irgendwelchen gründen nicht dargestellst wird? (also quasi geupdated?)
und hier der ClearClerks Code:
procedure TSchedClerks.ClearClerks;
var
i: integer;
begin
if assigned(FClerkBox) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by rudi_,
16. Okt 2004
bevor ich jetzt erstmal weg muss, sollte man ggf. noch erwähnen, dass diese Form aus einer anderen Form heraus mit ShowModal erzeugt wird; falls das wichtig ist:
ClerkWindow := TSchedClerks.Create(nil,SchedConfig);
with ClerkWindow do
begin
top := (screen.Height div 2) - (height div 2);
left := screen.Width div 2 - width div 2;
ShowModal;
end;
ClerkWindow.Free;...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by rudi_,
16. Okt 2004
@Luckie
ja wie bereits erwähnt lasse ich z.B. die ergebnisse der datenbank ausgeben in einer showmessage in der LoadClerks prozedur
Die Daten werden korrekt ausgelesen, nur sämtliche operationen an der Listbox wie löschen, hinzufügen, ändern etc. zeigen keine wirkung, wenn das aus dem TClerkBox objekt heraus durchgeführt wird
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by rudi_,
16. Okt 2004
das ist zunächst die form:
type
TSchedClerks = class(TForm)
btn_ok: TButton;
lst_clerks: TListBox;
Button1: TButton;
procedure btn_okClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure lst_clerksClick(Sender: TObject);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by rudi_,
16. Okt 2004
Hallo,
ich habe gerade ein kleines Problem mit einer TListBox Komponente:
Ich lasse einige einträge aus der Datenbank auslesen und in der ListBox speichern über eine prozedur (vorher wird noch .clear durchgeführt)
jetzt ist aber das problem: ich habe neben meiner form-klasse noch eine weitere eigene klasse.
und wenn ich jetzt aus dieser anderen klassen die prozedure zum füllen der liste...