Uheldig opførsel
Jeg har en funktion der bruges til at vælge en fil fra disken og opdatere en tabel med dette navn.Alt det fungerer helt som forventet, men der sker det at når fildialogen lukkes, så er det som om den form den er kaldt fra mister fokus. Jeg skal altså trykke med musen i formen før jeg kan bladre videre i mine records i tabellen.
Det er lidt irriterende og jeg ville gerne undgå det, men hvordan?
procedure TfrmJsAttachments.FileAdd;
var
dlgOpen: TOpenDialog;
FileName: string;
begin
dlgOpen := TOpenDialog.Create(Self);
try
dlgOpen.InitialDir := User.Folder(ufAttachment);
dlgOpen.Options := [ofFileMustExist];
dlgOpen.Filter := 'Word 2007 template (*.dotx)|*.dotx|Word 2003 template (*.dot)|*.dot|' +
'Word 2007 dokument (*.docx)|*.docx|Word 2003 dokument (*.doc)|*.doc|' +
'PDF fil (*.pdf)|*.pdf|Alle filer (*.*)|*.*';
dlgOpen.FilterIndex := 5;
if dlgOpen.Execute then
FileName := dlgOpen.FileName;
finally
dlgOpen.Free;
end;
if FileName <> '' then
begin
try
qryAttachments.Edit;
qryAttachments.FieldByName('fldattachment_name').AsString := FolderRemove(FileName);
qryAttachments.UpdateRecord;
except
on E:exception do
Logfile.Error('frmJsAttachments.FileAdd: ' + E.Message);
end;
end;
ActiveControl := grdAttachments;
end;