delphi-xe2

I have a table like this: id parent_id name 1 1 Root 2 1 Car 3 1 Plane 4 2 BMW 5 4 CLK How can I dynamically create popup menu with all subitems in Delphi? This is how it should look like: Assuming root element has NULL as Parent_ID you can issue the request Select ID, Parent_ID, Name from all_my_menus order by Parent_ID nulls first, ID where Menu_ID = :MenuIDParameter 1 <NULL> Root 8 <NULL> another root 2 1 Car 4 1 Plane 3 2 BMW 5 4 CLK You would also cache in-memory created menu items: var MI_by_id: TDictionary<integer, TMenuItem>; The traversing through the results would look like var MI:

I cannot find any simple examples of a DNS lookup using Indy 10's TIdDNSResolver component. They're all either for something I don't need (such as MX/SMTP), or are talking terms with no code . I have tried reading the result based on the few resources I can find, but don't know how I'm supposed to be reading the result. Here's what I have so far... uses IdBaseComponent, IdComponent, IdTCPConnection, IdDNSResolver; function TForm1.Lookup(const Name: String): String; var X: Integer; begin //DNS: TIdDNSResolver DNS.QueryType:= [qtA]; DNS.Resolve(Name); for X:= 0 to DNS.QueryResult.Count-1 do

I'm currently adding the IAccessible-Interface to my derived VCL-Components to be able to implement automated UI-Testing for my application. After implementing the interface i didnt see the name in the properties of my components read out via external tools, though i saw while debugging it was set. After "some" (or more likely very much) testing around i found out, that the return value of Get_accState seems to be influencing the name: When I return S_OK in this function (independet from the State i set), my Control name is empty, else it's the value set in Get_accName . Am I doing something

I know how to get enum value from integer value, and I have this code function GetEnumValue(intValue:integer):TMyType begin if(ordValue >= Ord(Low(TMyType)))and(ordValue <= Ord(High(TMyType)))then result :=TMyType(ordValue) else raise Exception.Create('ordValue out of TMyType range'); end; I have similiar code like above in many place for many enum type other than TMyType, I want encapsulate that code to single protected code on base class, so inherited class can use it. but I dont know how to generalize TMyType, so my code can check if it right enum type or another type object I cant have a

I'm having a bug on Delphi XE2 (Update 4 Hotfix 1), which reproduces many times on the legacy project I work (it evolved from D6 to D7,D2006 and finally XE2), but I didn't know how to trigger it in a smaller project. The latest time, it triggered on creating an event handler for a "hidden popup" on the app. When I click on the menu option to create the Click handler this happens. pprocedure TMainForm.Blablabla1Click(Sender: TObject); begin end; rocedure TMainForm.FormActivate(Sender: TObject); You can see that the IDE inserted the new code INSIDE the declaration of the next method... But it's

In a ListView, how can I attach an object at any time to an already existing ListItem? (I know I can attach an object to a ListItem with AddItem , however I need to attach the object after the ListItem has been created). You can access it through the TListItem.Data property. For example: var ListItem: TListItem; begin ListView1.AddItem('Item 1', nil); ... ListItem := ListView1.Items[0]; ListItem.Data := Edit1; TEdit(ListItem.Data).Text := 'Updated text...'; end; You could solve this using the Data property of TListItem . That's often a quick and easy approach. The only slight wrinkle is if you