I assume you are settings hte parameters at some stage? or is this being done automatically via teh Update link? If so, are you sure you aren't closing the dataset that provides these parameters????
Again, the more detail you can post about your application the better....sounds like you have...
can you include the SQL that is being executed?
have you tried adding some exception handling to get a better idea as to what is causing the error? e.g.
form1.DataSource2.DataSet.Close;
try
if form1.IBTransaction1.InTransaction then
form1.IBTransaction1.Commit...
You're not likely to get a lot of replies with statements like:
'If not then give me a function'
having said that, a simple google search turned up:
http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20722390.html
the only thing I can think of is that hte hBmp is not being created on rare occaisions..
you might want to try:
hDCForm := GetDeviceContext(hWndForm);
try
hDCMem := CreateCompatibleDC(0);
try
hBmp := CreateCompatibleBitmap(hDCForm, ClientWidth, ClientHeight);
if (hBmp...
How does the client connect to the Server??? is it a multi-threaded server? if so, have you set the CoInitFlags anywhere?
I alway add:
CoInitFlags:= COINIT_MULTITHREADED;
to my project source, as this allows ADO connections to operate correctly in a multi-threaded environment.
Heres an...
you need to make sure you set the Parent property of any dynamically created visual controls (there are some exceptions)...otherwise they don't show up.
var myP: array[0..kMaxPanels-1] of TPanel;
then
procedure DrawPanelsFromTracks_Click(Sender : TObject);
var i : integer;
begin
for i:=0 to kMaxPanels-1 do
begin
myP[i] := TPanel.Create(self);
myP[i].Parent := self;
myP[i].Tag:=i;
end;
end;
I'm sure you could add whatever else you need to the TAudioLibIndex record...or create another record that is simply a header that is prepended to all audio samples and is what the TAudioLibIndex points at....
it all depends how you want to use the library...
one suggestion.....in BaseBitmapChanged there is an if statement that reads:
if FBaseBitmap.Width > 0 and FBaseBitmap.Height then
I would change it to be a little more readable :)
if (FBaseBitmap.Width > 0) and (FBaseBitmap.Height > 0) then
unfortunately, filters will not do what you want...I'm not sure about adding indexes to TQueries...you might have to end up writing the search funcationality yourself!
e.g.
procedure FindBySSN(SSN: string);
var
Found: boolean;
begin
SSN := UpperCase(SSN);
DataSet.DisableControls;
try...
if TObject.Create() fails, then nothing is added as an exception will be raised.
Also, provided you have set the OwnsObjects property to true, the list will free the objects it contains when necessary.
procedure TMainForm.TabSet1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
begin
// Clicked On A Tab...
If TabSet1.TabIndex<>-1 Then
Begin
MDIChildren[TabSet1.TabIndex].SetFocus;
MDIChildren[TabSet1.TabIndex].Show...
ok...I avoided this post as I'm quite busy at the moment :)
I would do something like:
TAudioLibHeader = record
Name: array[0..20] of char;
AudioCount: integer;
end;
TAudioLibIndex = record
AudioName: array[0..50] of char;
Artist: array[0..50] of char;
PlayLength: integer...
Leslie,
any chance of some more info? what components are you using (you're obviously using a DBGrid...but whats it hooked to??).
When you say you created local tables - do you mean you created a local TTable? or something else? Where do you get the data to populate the local table with as...
with:
with TWebBrowser.Create(t) do
begin
Align := alClient; //doesn't work
Navigate ('http://www.yahoo.com'); //does work
ParentWindow := t.Handle;
end;
you might want to try:
with TWebBrowser.Create(t) do
begin
Parent := t;
Align := alClient; //doesn't work
Navigate...
had a quick look for a delpi unit for you. Take a look at:
http://anso.virtualave.net/RegExpE/
The Syntax section shows you some good examples and links.
I'm with you now :)
You need to associate the child window with a tab index.
I can give you two obvious solutions:
1) When you create the MDI child form, set its Tag property to the index of the newly created tab.
2) Add a property to all of your MDIChildren called TabIndex and set that as...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.